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PREFACE 



The IBM System/36 Operating System ALGOL 
Compiler consists of ten phases, or load 
modules. Chapter 1 of this manual provides 
an introductory survey of the main 
functions of the several phases. A more 
detailed description of the individual 
phases is provided in the subsequent chap- 
ters, as follows: 

Directory (IEXOO) Chapter 2 

Initialization (IEX10) Chapter 3 

Scan I/II (IEX11) Chapter 4 
Identifier Table Manipulation 

(IEX20) Chapter 5 

Diagnostic Output (IEX21) Chapter 9 

Scan III (IEX30) Chapter 6 

Diagnostic Output (IEX31) Chapter 9 

Subscript Handling (IEX4 0) Chapter 7 

Compilation Phase (IEX50) Chapter 8 

Termination Phase (IEX51) Chapter 8 

Two of the phases (Load Modules IEX21 
and IEX31) are devoted exclusively to the 
editing and output of diagnostic messages. 
Diagnostic output is also provided for in 
the Termination Phase (Load Module IEX51) . 
The Error Message Editing Routine, which 



handles the output of diagnostic messages 
in the three phases mentioned, is described 
in Chapter 9 . 

Chapter 10 describes the ALGOL Library, 
which consists of a set of load modules 
representing standard I/O procedures, 
mathematical functions, and the Fixed Stor- 
age Area. 

Chapter 11 describes the composition of 
the object module generated by the Compiler, 
and the organization of the load module at 
execution time. 

Other publications that will be useful 
to the reader in understanding the Compiler 
are: 

OS ALGOL Language , Order NO.GC28-6615 

OS ALGOL Programmer's Guide , 
Order No. GC33-4000 

OS FORTRAN IV Library , Order No. 
Order No. GC28-6596 
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CHAPTER 1: INTRODUCTION 



PURPOSE OF THE COMPILER 



The OS/360 ALGOL Compiler translates a 
source program written in the OS/ 360 ALGOL 
Language into an object module which may be 
linkage edited and executed by an IBM 
System/360 computer. The final load module 
consists in part of code generated by the 
Compiler and, in part,, of routines (in load 
module form) drawn from the ALGOL Library. 
The Library is a data set containing ALGOL 
standard I/O procedures and mathematical 
functions, as well as auxiliary routines 
required by the object module at -execution 
time. The Library routines are combined 
with the generated code at linkage edit 
time, to form an executable load module. 

The Compiler prints out a listing of the 
source module and of the Identifier Table, 
if the SOURCE option is specified,, and 
prints out diagnostic messages reflecting 
syntactical errors detected in the source 
module, as well as other errors occurring 
during compilation. 



sole typewriter, and a sequential 
device (magnetic tape unit or card 
reader) . 



ORGANIZATION OF THE COMPILER 



Figure 1 indicates the modular structure 
of the ALGOL Compiler as well as the 
essential operations performed in each of 
the constituent phases. The Compiler con- 
sists of ten load modules, the first of 
which, called the Directory,, remains in 
main storage throughout compilation. The 
other nine modules, representing the work- 
ing phases of the compiler,, are loaded and 
executed in sequence. 



DIRECTORY (IEX00) 



THE COMPILER AND SYSTEM/36 OPERATING 
SYSTEM 



The ALGOL Compiler is a processing pro- 
gram of the System/360 Operating System. 
It is executed under the control of the OS 
Supervisor, and utilizes the I/O and other 
services of the OS Control Program. 

A compilation is executed as a job step 
by means of the job control facilities of 
the Operating System. The use of the 

I Compiler is explained in the OS ALGOL 
Programmer f s Guide* . 



The Directory consists of a pre- 
assembled Common Work Area, used by all 
phases, as well as a number of auxiliary 
routines providing interface with the 
Operating System. The latter include the 
initial entry and final exit routines which 
receive control from,, and return control 
to, the Operating System. 



INITIALIZATION PHASE (IEX10) 



The Initialization Phase: 



MACHINE SYSTEM 



The minimum machine configuration 
required for execution of a compilation 
using the ALGOL Compiler is as follows: 



An IBM System/360 Model 30, 40, 50, 
65, 75, or 91, or an IBM System/370 
Model 135 (or higher) with the 
scientific instruction set and at 
least 64 K bytes of main storage 
capacity. 



At least one direct access 
input/output device; a printer; a con- 



1. Sets up a control field in the Common 
Work Area, reflecting the options 
specified in the EXEC Statement invok- 
ing the Compiler. 

2. Determines the sizes of the private 
work areas required by the individual 
phases. 

3. Acquires main storage for a source 
text input buffer and for the Error 
Pool . 

4. Opens data sets. 

5. Executes a SPIE macro which specifies 
the address of the program interrupt 
routine in the Directory. 



Chapter 1: Introduction 13 



ALGOL COMPILER 



EXEC 
























CALL/LINK/ 
ATTACH 


XCTL 


IEX00 


LINK 


IEX10 










DIRECTORY 


INITIALIZATION 
PHASE 








(A) 




(B) 


RETURN 




SYSUT1 

Modified 
Source Text 
(Modification 
Level 1) 




SYSUT3 
Identifier 
Table 
(ITAB) 








J 




XCTL 














SYSIN 
Module 




IEX11 


SCAN l/ll 
PHASE 
















— «H 




-i 












Main Storage 


SYSLIN 


/ 




SYSPRINT 
Module 


' Error Pool ' 
1 Group Table 1 
1 Scope Table | 
| P.B. No. Table | 

1 J 










XCTL 




SYSPUNC 


1 




ESD Record 




(B) 




| Main Storage | 

1 Error Pool 1 
|P.B. No. Table |-h— 

1 1 

I 1 


& TXT Records 
of Constant 
Pool 




SYSUT3 

Identifier 

Table 

(ITAB) 




IEX20 


IDENTIFIER 
TABLE 

MANIPULATION 
PHASE 














— — 1 




-i 










Main Storage 


SYSUTC 


_ 




SYSPRINT 
Identifier 
Table 
Listing 












XCTL 






Error Pool 

1 


1 
.j 


Table 
(ITAB) 




IEX21 




SYSPRINT 

Diagnostic 
Messages 




1 Main Storage 1 

1 Error Pool 1 - 

1 1 


DIAGNOSTIC 

OUTPUT 


(C) 












(A) 




(B) 






(D) 












SYSUT2 
Modified 
Source Text 
(Modification 
Level 2) 




ed 

Text 
cation 

) 




er 


XCTL 










Modifi 
(Modif 


Identif 
Table 
(ITAB) 








r "i 

1 Main Storage 1 

Scope Table 
1 Group Table ' *" 

I 1 


IEX30 


SCAN III 
PHASE 






























-~i 








r w . r. 








"~! i — d — r -2- ! 


SYSLIN/ 
SYSPUNCH 

TXT Records 
of Constant 
Pool 




SYSUT3 

Table (SUTAB) 
Left Variable 
Table (LVTAB) 


XCTL 






For Statement 
Table 

1 


_ j 


IEX31 




SYSPRINT 

Diagnostic 
Messages 




r ~i 

1 Main Storage 1 
Error Pool H — 


DIAGNOSTIC 
OUTPUT 






(E) 








(E) 




XCTL 














SYSUT3 
Subscript 
Table (SUTAB) 
Left Variable 
Table (LVTAB) 








(F) 






SYSUT3 
Optimization 
Table 
(OPTAB) 








'For Sta 
iTable 
1 


tement ' 


IEX40 * 




1 


SUBSCRIPT 
HANDLING PHASE 












~i 


















(D) 




(F) 


' For Statement 1 
1 Table 1 

L J 










SYSUT2 
Modified 
Source Text 
(Modification 
Level 2) 










zation 


XCTL 






Optimi 








(OPTAB) 


r n 

1 Main Storage 1 
1 Prog. Blk. Table II ' 
'For Statement 1 "* 
[Table J 




SYSLIN/ 


H 
D 




IEX50 


SYSPUNC 
TXT &RL 




COMPILATION 
PHASE 


Records of 
Generated 
Object Code 
















1 














-~i 






* IEX40also initializes 


r . - 




1 Prog.Blk.TcblellH 
1 I/O Table 1 
| Label Addr.Tablel 
L Error Pool j 












XCTL 




SYSPRINT 

Requirements 
or Diagnostic 
Messages 




SYSLIN/ 
SYSPUNCH 


END, ESD, TXT 
& RLD 
Records for 
Lable Address, 
Program Block, 
Data Set, and 
Address Tables 


IEX51 


r i 

1 Ma in Storage 1 
'Prog. Blk.Table III ' — - 

1 I/O Table 1 
lLabel Addr. Table | 
[Error Pool J 


TERMINATION 
PHASE 

(Including Object 
Time Table Output 
and Diagnostic 
Output) 


! 














the Co 




ilatio 


n Pha 












RETURN 







Directory 

Contains entry and exit routines which receive 
control from and return control to the Operating 
System. Also contains Common Work Area for 
inter-phase communication, as well as program 
interrupt, SYNAD and EOD routines. Resident 
in main storage during compilation. 

Initialization 



Determines sizes of work areas acquired by the 
individual phases, according to the SIZE option; 
opens data sets; sets switches reflecting compila- 
tion options; and acquires storage for an input 
buffer and the Error Pool . Also executes the SPIE 
macro-instruction. 

Scan l/ll 

Reads the source module and lists all valid identi- 
fiers declared or specified in the source module in 
the Identifier Table, together with descriptive in- 
ternal names; stores character strings in the Con- 
stant Pool, replacing them in the output text by in- 
ternal names containing the string's relative ad- 
dress; and generates TXT records of the strings 
stored in the Constant Pool. Replaces all delimiter 
words and multi-character operators by one-byte 
symbols in the output text (called Modification 
Level 1). Detects syntactical errors and records 
them in the Error Pool. Prints out a listing of the 
source module if the SOURCE option is specified. 

Identifier Table Manipulation 

Allocates object time storage addresses to all iden- 
tifiers (other than declared procedure pnd switch 
identifiers and labels) listed in the Identifier Table, 
noting the relative addresses in the corresponding 
internal names in the table; records the total stor- 
age allocation for identifiers declared or specified 
in each block or procedure in Program Block Table 
II; and records multiple declaration errors in the 
Error Pool. Prints out a listing of the Identifier 
Table if the SOURCE option is specified. 



D iagnostic Output 

Edit; the contents of the Error Pool and prints out 
diagnostic messages reflecting the errors detected 
by the preceding phases. 

Scan III 

Reads the Modification Level 1 source text output 
by Scan l/ll and generates a new source text (Mod- 
ification Level 2), in which externally represented 
operands in statements are replaced by the corre- 
sponding internal names in the Identifier Table. 
Stores constants in the Constant Pool, replacing 
them by internal names containing the storage ad- 
dress, and generates TXT records of the Constant 
Pool. Classifies for statements in the For Statement 
Table and lists linear subscript expressions and left 
variables in counting loop and elementary loop for 
statements, in the Subscript Table and Left Vari- 
able Table, respectively. 

Diagnostic Output 

Edits the contents of the Error Pool and prints out 
diagnostic messages reflecting the errors detected 
by the Scan III Phase. 

Subscript Handling 

Constructs the Optimization Table, listing opfimiz- 
able subscript expressions in for statements, in 
which no term occurs as a left variable in the for 
statement. Optimizable subscripts are identified by 
comparing each term in the expressions listed in the 
Subscript Table with the entries from the same for 
statement in the Left Variable Table. Also re-clas- 
sifies for statements in the For Statement Table. 

Compilation 

Reads the Modification Level 2 source text and gen- 
erates an object module. Uses the For Statement 
Table to determine the logical structure of the gen- 
erated code for each for statement. Uses the Opti- 
mization Table to generate code which pre-calcu- 
lates a base address and an incremental displace- 
ment for optimizable subscripts of arrays occurring 
in for statements. Generates code to link precom- 
piled standard functions and I/O procedures in the 
Library to the object module. 

Termination 



Generates TXT and RLD records of tables used by 
the object module at execution time, as- well as 
ESD records for standard I/O procedures and math- 
ematical functions, and the END record. Edits and 
prints out errors recorded in the Error Pool or prints 
a statement of main storage requirements at object 
time Releases main storage and returns control to 
the exit routine in the Directory. 



Figure 1. Constituent phases of the ALGOL Compiler 
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SCAN I/II PHASE (IEX11) 



DIAGNOSTIC OUTPUT (IEX21) 



The Scan I/II Phase reads the source 
module and constructs the Identifier Table, 
listing all identifiers declared or speci- 
fied un the source module. The Identifier 
Table is used in constructing a five-byte 
internal name for each and every identifier 
declared or specified in the source module. 
In the case of declared labels, procedures, 
and switches, the internal name 
(constructed in its entirety in this phase) 
contains the relative address of an entry 
in the object time Label Address Table. In 
the case of all other identifiers, the 
internal name (constructed partly in this 
phase and partly in the succeeding phase) 
contains the relative address of an object 
time storage field. The internal name 
ultimately replaces all externally rep- 
resented operands in the source text (see 
Scan III Phase below) . 



The Scan I/II Phase also generates the 
first of two intermediate transformations 
of the source text, called Modification 
Level 1. The principal changes reflected 
in the first transformation include: 



An initial translation of all 
ters to an internal code. 



charac- 



The removal of all type declarations 
and specifications . 

The replacement of ALGOL delimiter 
words and multicharacter operators by 
one -byte symbols. 



IDENTIFIER TABLE MANIPULATION PHASE (IEX20) 



See "Diagnostic Output" below. 



SCAN III PHASE (IEX30) 



The Scan III Phase reads the Modifica- 
tion Level 1 text output by the Scan I/II 
Phase and generates a further transforma- 
tion of the source text (called Modifica- 
tion Level 2) . In this version, the exter- 
nal names of operands in statements are 
replaced by the internal names constructed 
for declared or specified identifiers in 
the Identifier Table. Similarly, all con- 
stants are replaced by internal names con- 
taining a Constant Pool address. After 
being stored in the Constant Pool, con- 
stants are subsequently transferred to TXT 
records. 

Logical features of all for statements 
are detected and recorded in the For State- 
ment Table. Among other things, the For 
Statement Table assigns each for statement 
to one of three loop classif icaticns 
(Normal Loops, Counting loops and Elementa- 
ry Loops). The loop classification speci- 
fies the logical structure of the cede 
generated in the Compilation Phase for each 
for statement. 

Subscript expressions of arrays found in 
for statements, classified counting loops 
or Elementary Loops, are analyzed and 
stored in the Subscript Table, provided 
they satisfy certain criteria with respect 
to the terms in the expression and their 
linearity within the for statement. Inte- 
ger left variables in Counting and Elemen- 
tary Loops are listed in the Left Variable 
Table. 



The Identifier Table Manipulation Phase 
processes the Identifier Table constructed 
by the Scan I/II Phase. To each identifier 
listed in the table, excepting declared 
procedure and switch identifiers and 
labels, an object time storage field is 
assigned, the relative address being 
inserted in the corresponding entry in the 
Identifier Table. This address specifies 
the position of the identifiers storage 
field, relative to the beginning of a Data 
Storage Area. The Data Storage Area con- 
sists of the total amount of object time 
storage space allocated to all identifiers 
declared or specified in the particular 
block or procedure. The size of the Data 
Storage Area allocated to each block and 
procedure is recorded in Program Block 
Table II and transmitted to the Compilation 
Phase via the Common Work Area. 



DIAGNOSTIC OUTPUT (IEX31) 



See "Diagnostic Output" below. 



SUBSCRIPT HANDLING PHASE (IEX40) 



The Subscript Handling Phase constructs 
the Optimization Table, listing those sub- 
script expressions of arrays contained in 
for statements # which can be optimized in 
the code generated for for statements. 
Optimization refers to the minimization of 
computing time involved in addressing the 
elements of an array. 
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COMPILATION PHASE (IEX50) 



The Compilation Phase reads the Modi- 
fication Level 2 text output by the Scan 
III Phase and generates object code to 
perforin the operations designated by state- 
ments in the source module. 

Operand addresses in the generated code 
are obtained from the internal names of 
operands in the Modification Level 2 text. 
The logical structure of the object code 
generated for a for statement is governed 
by the particular for statement's loop 
classification in the For Statement Table. 
Where a for statement contains optimizable 
subscripts, the Optimization Table is used 
in generating code which minimizes the 
computing time involved in addressing array 
elements. 



TERMINATION (IEX51) 



The Termination Phase constructs the 
Data Set Table and Program Block Table IV; 
generates TXT and RLD records for the 
latter two tables and for the Label Address 
Table; generates an END record as well as 
ESD records for all Library routines to be 
combined with the ODJect module; processes 
any errors detected in the Compilation 
Phase; and terminates the Compiler by 
releasing main storage and returning con- 
trol to the invoking program via the Final 
Exit routine in the Directory. The Termi- 
nation Phase logically constitutes an 
extension of the Compilation Phase and is 
described in the same chapter, namely Chap- 
ter 8. 



transferred directly to a terminating rou- 
tine in the Termination Phase, after all 
recorded errors have been printed out ty 
the Error Message Editing Routine in the 
appropriate diagnostic output module (see 
Figure 1) . 



ALGOL LIBRARY 



The Library is a partitioned data set 
(SYS1.ALGLIB) consisting of routines which 
perform the standard mathematical functions 
and I/O procedures defined in the ALGOL 
Language. The appropriate routines, cor- 
responding to the standard functions or I/O 
procedures called in the source module, are 
linked to the object module at linkage edit 
time. ESD records to call standard func- 
tions or I/O procedures are generated in 
the Termination Phase. 

The Library also contains the Fixed 
Storage Area, which consists of a set of 
auxiliary routines and control fields 
required for execution of the object 
module. The auxiliary routines include the 
Initialization and Termination routines, as 
well as ether routines which acquire or 
release main storage and administer the 
calling of procedures. The library is 
further described in Chapter 10. 

An object time Error Routine is provid- 
ed, which forms a module of the 
3YS1.LINKLIB data set. The Error Routine, 
which is loaded only if an object time 
error is detected, prints out an appropri- 
ate error message and terminates the object 
program. The error routine is described in 
Chapter 10. 



DIAGNOSTIC OUTPUT (IEX21, IEX31, AND IEX51) THE OBJECT MODULE 



The compile time Error Message Editing 
Routine, which forms a control section of 
each of load modules IEX21, IEX31, and 
IEX51, prints out diagnostic messages 
reflecting errors detected by the preceding 
phase or phases in the source module. Any 
errors detected are recorded by the parti- 
cular phase in the Error Pool, in the form 
of error patterns. At the conclusion of a 
phase, the Error Message Editing Routine 
processes the contents of the Error Pool 
and prints out appropriate diagnostic mes- 
sages. Errors are classified as warning 
errors, serious errors, or terminating 
errors. The recognition by any phase of a 
terminating error causes control to be 



The structure of the object module is 
described in Chapter 11. 



INPUT/OUTPUT ACTIVITY 



The data sets used by the Compiler are 
indicated in Figure 1. I/O operations in 
each of the several working phases are 
discussed in further detail in the relevant 
chapters. The table in Figure 2 summarizes 
I/O activity during compilation, in terms 
of the macro instructions issued. 
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Data Set Table 



Phase 


Data Set 


SYS IN 


SYSUT1 


SYSUT2 


SYSUT3 


SYSL1N 


SYSPRINT 


SYSPUNCH 


Access method used: 
IEX00 

IEX10 
IEX11 

IEX20 

IEX21 
IEX30 

IEX31 
IEX40 

IEX50 

IEX51 
IEX51002 


QSAM 


BSAM 


BSAM 


BSAM 


QSAM 


QSAM 


QSAM 


CLOSE* 


CLOSE* 


CLOSE* 


CLOSE* 


CLOSE* 


CLOSE* 
PUT 


CLOSE* 


OPEN 
CLOSE* 


OPEN 
CLOSE* 


OPEN 


OPEN 


OPEN (if used) 


OPEN 
PUT 


OPEN (if used) 


GET 
CLOSE 


WRITE 
CHECK 




WRITE 
CHECK 


PUT 


** 


PUT 








READ, CHECK 
WRITE, CHECK 
NOTE, 
POINT 


















** 






READ 

CHECK 

CLOSE 


WRITE 
CHECK 


CLOSE (T) 
READ, CHECK 
WRITE, CHECK 
NOTE, POINT 


PUT 




PUT 












** 








READ 
CHECK 


READ, CHECK 
POINT 
WRITE, CHECK 












READ, CHECK 


READ, CHECK 


PUT 




PUT 




CLOSE* 


CLOSE 


CLOSE 


PUT 
CLOSE 


CLOSE 


PUT 
CLOSE 



Data set closed in event of program interrupt or unrecoverable I/O error. 

** In each of the modules indicated, a call is made to the PRINT subroutine 
in the Directory (IEX00), which executes the PUT macro instruction. 



Figure 2. I/O Activity by Data Set and Phase 



INTERPHASE COMMUNICATION BY SOURCE TEXT AND 
TABLE 



Name of Table 



Described in 
Chapter 



The source module is subjected to two 
transformations before object code is gen- 
erated in the Compilation Phase. These 
transformed versions of the source text are 
named Modification Level 1 and Modification 
Level 2. They are described in Chapters 3 
and 5, respectively. Modification Level 1 
is generated by the Scan I/II Phase, Modi- 
fication Level 2 by the Scan III Phase. 
Modification Level 2 forms the main input 
to the Compilation Phase, which generates 
the ultimate object code. 



The Tables constructed in the several 
phases and transmitted to one or more 
subsequent phases are indicated in Figure 
3. A detailed description of the function 
and contents of each table is given in the 
chapters indicated: 



Address Table 

Data Set Table (DSTAB) 

For Statement Table (FSTAB) 

Group Table (GPTAB) 

Identifier Table (ITAB) 

I/O Table (IOTAE) 

Label Address Table (LAT) 

Left Variable Table (LVTAB) 

Optimization Table (0PTAB) 

Program Block Number Table 

(PBTAB1) 
Program Block Table II 

(PBTAB2) 
Program Block Table III 

(PBTAB3) 
Program Block Table IV (PBTAB4) 
Scope Table (SPTAB) 
Semicolon Table (SCTAB) 
Subscript Table (SUTAB) 



8 

8, 11 

6 

4 

4, 5, 
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11 
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Activity Table 



Text / Table 


Initialization 

Phase 

(IEX10) 


ill 


Identifier 

Table 

Manipulation 

Phase 

(IEX20) 


Diagnostic 

Output 

(IEX21) 


Scan III 

Phase 

(IEX30) 


Diagnostic 

Output 

(IEX31) 


Subscript 

Handling 

Phase 

(IEX40) 

-excluding 

Compilation 

Phase 

Initialization 


Compilation 

Phase 

(IEX50) 


Termination 

Phase 

(IEX51) 


(All tables except those marked by 
asterisks are transmitted between 
phases via the Common Work Area) 
















Source Text * 




A 






A 






B 




Address Table 


















C,W 


Data Set Table (DSTAB) 


















C,W 


For Statement Table (FSTAB) 










C 




M 


T 




Group Table (GPTAB) 




C 






T 










Identifier Table (ITAB) * * 




C 


M 




T 










I/O Table (IOTAB) 
















C 


T 


Label Address Table (LAT) 
















C 


W 


Left Variable Table (LVTAB)** 










C 




T 






Optimization Table (OPTAB)** 














C 


T 




Program Block Number Table (PBTAB1) 




C 


T 














Program Block Table II (PBTAB2) 






C 










M,T 




Program Block Table III (PBTAB3) 
















C 


T 


Program Block Table IV (PBTAB4) 


















C,W 


Scope Table (SPTAB) 




C 






T 










Semicolon Table (SCTAB) 




C,T 
















Subscript Table (SUTAB)** 










C 




T 







* The source text is transmitted between phases via 
external storage, unless the text is less than a full 
buffer in length. In the latter case it is transmitted 
by way of Source Text Buffer 1 in the Common Area. 

* * Table transmitted between phases by way of an ex- 
ternal storage device (see Figure 1). 



Key; A - Source Text transformed 

B - Source Text terminated (object code generated) 

C - Table constucted 

M - Table completed or modified 

T - Table utilized and terminated 

W - Table transmitted to object module 



Figure 3. Activity Table showing the processing of source text and tables by ph 



iase 



USE OF MAIN STORAGE 



AREA OCCUPIED BY DIRECTORY AUXILIARY 
ROUTINES 



The storage maps in Appendix IX indicate 
the layout of routines and tables in main 
storage in each of the phases of the 
Compiler. In terms of function , the main 
storage utilized by the Compiler may be 
divided into five main areas: 



The composition of this control section, 
which contains auxiliary routines interfac- 
ing with the Operating System, as well as 
Data Control Blocks for all data sets 
except SYSUT1 and SYSIN, remains unchanged 
during compilation. 



1. Area occupied by auxiliary routines of 
the Directory (Control Section 
IEX00000) 



THE COMMON WORK AREA 



2. Common Work Area (Control Section 
IEX00001 of the Directory) 



3. Areas occupied by the operative phase 
(the operative module) 

4. Private area acquired by the operative 
phase 

5. Common Area occupied by the Error Pool 
and Source Buffer 1 

These areas are pictured in Figure 4. 



The Common Work Area is an area of 
approximately 3500 bytes, resident in main 
storage throughout compilation. Except for 
the lower 5 40 bytes, whose assignment is 
fixed, the composition of the Common Wcrk 
Area varies between phases and is defined 
by a Dummy Control Section in each phase. 
The Common Work Area functions as an inter- 
phase communication and control area. It 
contains a control field, initialized by 
the Initialization Phase and modified in 
the subsequent phases; a save area; a 
general transmission area used for communi- 
cating addresses, parameters and counters 
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used by all phases in common; and a general 
work area. The general work area, which 
represents the major part of the Common 
Work Area, provides space for the construc- 
tion and/or transmission between successive 
phases of small-size tables. In the Scan 
I/II Phase, an 80-byte field of the Common 
Work Area is used for processing card- image 
records of the (translated) source module. 



Directory Routines and DCB*s 



Common Work Area 

(Composition defined by dummy 
control section in each phase) 



Operative Module 



(IEX10, IEX11, IEX20, IEX21, IEX30, IEX31, 
IEX40, IEX50 and IEX51, in sequence) 



(Directory - IEX00 - comprising 
auxiliary routines and Common 
Work Area, is resident in main 
storage throughout compilation) 



(Modules loaded in sequence) 



(Variable - acquired by each 
phase and released at phase 
termination) 



Common Area 



(Error Pool and Source Text Buffer 1) 



(Acquired by Initialization 
Phase - released at termina- 
tion of compilation) 



Figure 4. Use of main storage by ALGOL 
Compiler 



AREA OCCUPIED BY OPERATIVE MODULE 



The operative module, which varies in 
size, is loaded adjacent to the Common Work 

Area. 



PRIVATE AREA ACQUIRED BY OPERATIVE MODULE 



All of the phases of the Compiler,, 
except load modules IEX21 and IEX31 
(diagnostic output modules), acquire a pri- 



vate area for the construction of relative- 
ly large size tables which are transferred 
to external storage devices. The private 
area is in every case released at phase 
termination. The private work areas are 
described in the relevant chapters under 
the heading "Initialization" . In the Scan 
I/II and Compilation Phases, the private 
area provides space for one source text 
buffer, while the Scan III Phase acquires 
three buffers. (See Ccirmon Area.) 



COMMON AREA 



The Common Area is acquired by the 
Initialization Phase and is not released 
until Compiler termination. It provides 
space for the Error Pool and for Source 
Buffer No. 1. The Common Area buffer is 
provided in order to enable the source text 
to be transmitted between phases via main 
storage, in the event the text occupies 
less than a full buffer. If either or bcth 
of the intermediate versions of the source 
text exceeds the buffer length, the text is 
transferred to external storage. In each 
of the phases which process the source 
text, one or mere additional buffers are 
provided for in the private area acquired 
(and subsequently released) by the phase. 
In the Scan I/II and Compilation Phases, 
the private area contains one source buf- 
fer, while in the Scan III Phase, the 
private area contains three buffers. 

In the Scan I/II Phase, the Modification 
Level 1 text is assembled and transmitted 
to the Scan III Phase in the Common Area 
buffer, unless the text exceeds the buffer 
length. In the latter case, the text is 
transferred to SYSUT1, using the Ccirmon 
Area buffer and the private area buffer as 
output buffers. 

In the Scan III Phase, the Modification 
Level 1 source text is processed in the 
Common Area buffer (if the text was trans- 
mitted in main storage) ,, or alternatively, 
in the Common Area buffer and a private 
area buffer (if the text is input from the 
SYSUT1 data set). The Modification Level 2 
text is assembled in one (or two) buffers 
in the private area and, if it exceeds the 
buffer length, it is transferred to SYSUT2. 
If the text is less than the buffer length, 
it is moved to the Common Area buffer, 
before the private area is released, for 
transmission to the Compilation Phase in 
main storage. 

In the Compilation Phase, the Modifica- 
tion Level 2 source text is processed in 
the Common Area buffer (if the entire text 
was transmitted in main storage) or, alter- 
natively, in the Common Area buffer and a 
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private area buffer (if the text was trans- 
mitted on the SYSUT2 data set) . 



CONVENTIONS 



The following conventions are observed 
this manual: 



in 



ALGOL delimiter words in the text of 
a source module are represented in 
the manner defined by the IBM 
System/360 Operating System ALGOL 
Language, e.g. 'BEGIN' or 'REAL'. 

With certain exceptions, one- byte 
characters in the internal code of 
the Compiler, representing ALGOL 
delimiter words, as well as other 
conventional delimiters, are rep- 
resented as in the following exam- 
ples: Begin, Goto , Power , Or , Comma, 
Decimal P oint , Array . The same con- 



vention applies to operators used by 
the Compiler internally, e.g. Beta , 
Proc , Epsilon . Except for the power, 
assignment and scale factor operators 
(represented respectively as Power , 
Assign , and Scale Factor ), arithmetic 
and relational operators are rep- 
resented by their commonly understood 
symbols, e.g. + , <, = . Parentheses 
and brackets are also represented 
symbolically, as in (, ), [, ]. The 
complete range of internal character 
representation during the various 
phases of the Compiler is indicated 
in the code tables in Appendices l~a 
through 1-d. 

Syntactical, logical, or operational 
errors detected during compilation 
are identified by the serial nuirfcer 
in the corresponding diagnostic mes- 
sage key. Thus, for example, the 
error whose detection produces a 
diagnostic message with the message 
key IEX034I, is identified in this 
manual as "error No. 34. " 
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CHAPTER 2: DIRECTORY (IEX ) 



PURPOSE OF THE DIRECTORY 



The Directory (IEXOO) is the first of 
ten load modules of the ALGOL Compiler. It 
is the first module to be loaded in main 
storage, and unlike the other nine modules, 
which are loaded, executed and then dis- 
placed by the succeeding module, the Direc- 
tory remains in main storage throughout 
compilation. 

The function of the Directory is: 

1. To provide the requisite interface 
between the Compiler,, on the one hand, 
and the invoking program and the Oper- 
ating System, on the other. This 
interface is provided by (a) the Ini- 
tial Entry routine, which receives 
control from the invoking program and 
loads the next module (IEX10); and the 
Final Exit routine, which returns con- 
trol to the invoking program at the 
close of the Termination Phase 
( IEX51 ) ; ( b) the Program Interrupt, 
SYNAD and EODAD routines, which 
receive control from the Operating 
System in the event of an unexpected 
interrupt and pass control to an 
appropriate routine in the operative 
phase; and (c) data control blocks for 
data sets used by the compiler. 

2. To provide a PRINT Subroutine, used in 
common by several phases, which prints 
out compilation output on the SYSPRINT 
data set, on call from the operative 
phase. The printed output includes 
diagnostic messages indicating syntac- 
tical errors detected in the source 
module, and, depending on the Computer 
options specified, listings of the 
source module and the Identifier 
Table. 



The Directory is loaded by the invoking 
program by means of a LOAD, XCTL, LINK, or 
ATTACH macro instruction, or by an EXEC 
control card. 



ORGANIZATION OF THE DIRECTORY 



The Directory consists of two control 
sections, named IEX00000 and IEX00001, res- 
pectively. Control Section IEX00000 con- 
tains the Initial Entry, Final Exit, Pro- 
gram Interrupt, SYNAD „ EODAD, and Print 
routines, as well as data control blocks 
for all except two of the data sets used by 
the Compiler (the other two are contained 
in the Common Work Area). Control Section 
IEX00001 comprises the Common Work Area. 



CONTROL SECTION IEX00000 



The principal components of Control Sec- 
tion IEX00OOO are as follows: 



Initial Entry Routine 



The Initial Entry routine receives con- 
trol from the invoking program. The rou- 
tine saves registers in the Invoker's save 
area, loads register 13 with the address of 
a save area in IEX00000, and executes a 
LINK macro instruction to load and activate 
the Initialization Phase (IEX10). 



Final Exit Routine 



3. To provide the Common Work Area, an 
area of main storage used for the 
transmission of tables, addresses and 
other data between phases. Among 
other things, the Common Work Area 
contains a common register save area, 
a Control Field (HCOMPMOD ~ see 
Appendix IV) which governs operations 
in each phase, and an Area Size Table 
which specifies the sizes of the pri- 
vate areas acquired by the several 
phases. The Control Field and Area 
Size Table, which are initialized or 
constructed by the Initialization 
Phase (IEX11), reflect the Compiler 
options specified by the user. 



The Final Exit routine is entered from 
the Termination Phase (IEX51). Registers 
are restored and control returned to the 
Invoker by a RETURN macro instruction. 



Program Interrupt Routine (PIROUT) 



PIROUT is activated by the control pro- 
gram in the event of a program interrupt. 
The address of PIROUT is specified by a 
SPIE macro instruction in the Initializa- 
tion Phase (IEX10). 
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PIROUT records error No. 209 in the Error 
Pool (indicating a program interrupt) and 
transfers control to a closing routine in 
the operative phase, the address of which 
is stored at a location named ERET in the 
Common Work Area. ERET is updated by the 
initialization routine (as well as by other 
routines) in each of the several phases, so 
as to indicate the correct entry point of 
the closing routine in the particular 
phase, A switch (TERR — see Appendix IV) 
turned on by PIROUT to indicate a terminat- 
ing error f causes the terminating routine 
in the operative phase to transfer control 
to the Error Message Editing routine in the 
next diagnostic output module (IEX21, 31 f 
or 51) for print-out of the errors recorded 
in the Error Pool. The same TERR switch 
causes the Error Message Editing Routine in 
the particular diagnostic output module to 
transfer control to the terminating routine 
in the Termination Phase (IEX51) , rather 
than to the next successive phase. 



Sysprint I/O Error Routine (SYNPR) 



The Sysprint I/O Error Routine is acti- 
vated by the control program in the event 
of an unrecoverable I/O error involving the 
SYSPRINT data set. The address of the 
routine is stored in the relevant DCB. 

The routine turns on a switch named PRT 
(Appendix IV) to indicate that the printer 
is down, and then enters the SYNAD routine 
to take the same actions as that taken for 
all other data sets. The PRT switch (if 
turned on) causes the Error Message Editing 
routine to print out a single message (for 
Error No. 210) on the console typewriter, 
indicating that the printer is inoperative. 



End of Data Routines (EODAD1, EODAD2, 
EODAD3, AND EODADIN) . 



Where a program interrupt occurs in the 
closing routine of the operative phase (in 
which case the same program interrupt will 
recur after PIROUT has returned control to 
the defective closing routine), PIROUT 
exits directly to the terminating routine 
in the Termination Phase. 



PIROUT is temporarily replaced as the 
program interrupt exit by the execution of 
a second, SPIE macro instruction in the 
initialization routine of the Scan III 
Phase. The substitute routine provides for 
special handling of exponent overflow and 
underflow interrupts, but passes control to 
PIROUT in all other cases. PIROUT is 
restored as the program interrupt exit by a 
final SPIE macro instruction in the closing 
routine of the Scan III Phase. 



The End of Data routines are entered 
from the control program when a data input 
operation from the SYSUT1, SYSUT2, SYSUT3, 
or SYSIN data set is terminated at the end 
of the data set. The address of the 
particular End of Data routine is stored in 
the data set's DCB. 

The End of Data routine leads the entry 
point of the appropriate ECD exit routine 
in the operative phase, and then passes 
control to that routine. The entry point 
of the EOD exit routine is stored by the 
initialization routine in each phase which 
processes a data set, at the appropriate 
one of the locations EODUT1, EODUT2, 
EODUT3, and EODIN in the Common Work Area. 
The phases which specify an EOD exit rou- 
tine for an end of data condition, the data 
sets involved, and the locations where the 
entry points are stored, are as follows: 



Phase 



Data Set 



Storage Field for 
EOD Exit 



I/O Error Routine (SYNAD) 



IEX11 



SYSIN 



EODIN 



SYNAD is activated by the control pro- 
gram in the event of an unrecoverable I/O 
error involving the SYSIN, SYSLIN, SYS- 
PUNCH, SYSUT1, SYSUT2, and SYSUT3 data 
sets. The address of the routine is stored 
in the relevant DcBs. 

The routine closes the affected DCB, 
records error No. 210 in the Error Pool 
(using the ddnaine contained in the DCB), 
sets the TERR switch on to indicate a 
terminating error, and passes control to 
the closing routine in the operative phase, 
whose entry point is specified in the 
location ERET. (See also Program Interrupt 
Routine PIROUT) . 



IEX20 


SYSUT3 


IEX30 


SYSUT1 




SYSUT3 


IEX40 


SYSUT3 


IEX50 


SYSUT2 



SYSUT3 



EODUT3 
ECDUT1 
ECDUT3 
ECDUT3 
EODUT2 
ECDUT3 



Note that End of Data exit routines for 
SYSUT2 and SYSUT3 are specified both in the 
the Compilation Phase initialization rou- 
tine in IEX40, and at the start of IEX50 
(see "Phase Initialization" in Chapter 8). 
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Print Subroutine (PRINT) 



Data Control Blocks 



The PRINT subroutine prints out text on 
the SYSPRINT data set on call from the 
operative phase. Depending on the compiler 
options specified, the subroutine may be 
called by the following routines in the 
modules indicated; 



CIB (IEX11) - Source module listing 



Control Section IEX00000 contains Data 
Control Blocks (DCBs) for the following 
data sets : 



SYSPRINT 

SYSLIN 

SYSPUNCH 

SYSUT2 

SYSUT3 



PRINTITB (IEX20) - Identifier 
listing 



Table 



COT27 (IEX21, 31, 51) - Diagnostic mes- 
sages 



PRINTT (IEX51) 
re qui rements 



Object module storage 



The text printed out includes front page 
titles, headlines, as well as variable 
(compiler- generated) text. A single line 
of text is printed by each call to PRINT. 
After a page shift, one or more headlines 
are printed at the top of the new page 
before the next line of text is printed. 
Text other than headlines is assembled by 
the calling routine in a print buffer 
previously specified by, PRINT (in register 
1). Headlines are transmitted by the call- 
ing routine in a Common Work Area field 
named PAGEHEAD (which accommodates up to 
three lines of text) and are subsequently 
moved by PRINT to a print buffer for 
output. The headlines are assembled at 
PAGEHEAD during initialization of each par- 
ticular phase. 

PRINT maintains both a line and page 
count, and inserts the control character in 
the appropriate line of text to effect the 
required page shift. Before a page is 
shifted, the next line of text is temporar- 
ily moved from the print buffer to a save 
area, to enable the headline(s), together 
with the page number, to be printed at the 
top of a new page. Control characters 
governing line spacing between headlines 
are supplied by the calling routine in the 
headlines. 

These characters are used by PRINT to 
add the correct increment to the line 
count. The control character to effect a 
standard single- space line change is 
inserted by PRINT at the beginning of each 
new print buffer. Special page shifts, 
e.g. following the title page, are speci- 
fied by the calling routine by arbitrarily 
raising the line count, maintained in the 
Common Work Area. The calling routine may 
also suppress one or more headlines by 
inserting a special character at the begin- 
ning of the particular headline. 



The DCB addresses are listed in the 
Common Work Area, following the register 
save area. The foregoing data sets are 
required throughout compilation. DCBs for 
the SYSIN data set, which is not used after 
the Scan I/II Phase (IEX11), and the SYSUT1 
data set, which is not used after the Scan 
III Phase (IEX30), are stored in the Common 
Work Area. Data Sets are opened by the 
Initialization Phase (IEX10) f which also 
modifies the information in the DCBs to 
reflect special user requirements concern- 
ing block sizes and record lengths. 



CONTROL SECTION IEX00001 (COMMON WORK AREA) 



The Common Work Area is an area of 
approximately 3500 bytes used by all phases 
of the Compiler, principally for the con- 
struction and/or transmission between phas- 
es of small- size tables, essential control 
information, and address data. Except for 
a limited number of fields which remain 
essentially unchanged throughout compila- 
tion, the composition of the Common Wcrk 
Area varies between phases. Its composi- 
tion is defined by a dummy control section 
in each phase. The general layout of 
tables and other data in the Common Work 
Area in each phase is indicated in the 
storage maps in Appendix IX- a. 

The principal fields which remain fixed 
in position in the Common Work Area are the 
following. 



Register Save Area 



A standard format save area of 72 bytes, 
addressed throughout compilation by Reg- 
ister 13, is provided for saving registers 
when control is passed to the control 
program at any point during execution of 
the phases IEX10-IEX51. 
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DCB Addresses 



The addresses of the Data Control Blocks 
of all seven data sets used by the Compiler 
are recorded in the Common Work Area , 
immediately below the general save area. 



in succession (e.g. the pointer PRPT, 
which is incremented in the Scan I/II and 
Scan III Phases to indicate the displace- 
ment of each point in the object module, 
beginning with the Constant Pool) . 



Area Size Table (INBLKS) 



End of Data Exit Addresses 



This field contains the entry point (s) 
of the closing routine(s) to be entered in 
the operative phase in the event of an End 
of Data condition on any one of the data 
sets SYSIN, SYSUT1, SYSUT2, and SYSUT3 . 
The appropriate entry point is fetched from 
this field by the EODAD routine in the 
Directory when an EOD condition occurs. 
The field is updated by each phase at 
initialization so as to specify the correct 
closing routine in the phase. 



Compiler Control Field (HCOMPMOD) 



A three- byte field in the Common Work 
Area named HC0MPM0D is used as a Compiler 
Control Field. All except one of the 24 
binary positions in this field are used as 
switches to govern operations in each phase 
of the Compiler. The significance of each 
switch is indicated in Appendix IV. 

The Control Field, which is initialized 
by the Initialization Phase (IEX10) , indi- 
cates, among other things, the Compiler 
options specified by the user. It also 
indicates significant error conditions 
detected by any one phase, which may cause 
the Compiler to enter Syntax Check Mode, or 
alternatively, to terminate operations. 
The compiler options are listed in Chapter 
3. 



Communication Area 



The Communication Area contains address- 
es, pointers, counters, and other informa- 
tion used by two or more phases in common. 
The address information may be variable (as 
in the case of the program interrupt or I/O 
error closing routine address at ERET, 
which changes with each phase) or invaria- 
ble (as in the case of the address of the 
Common Area Source Text Buffer 1, stored at 
SRCE1ADD) . Counters designate literal num- 
ber values (e.g. the line count referenced 
by the PRINT subroutine at LINCNT) . Poin- 
ters designate address displacement values 
which may be incremented by several phases 



The Area S 
of work are 
individual ph 
tables trans 
It also speci 
certain data 
the table are 
tion routines 
the GETMAIN 
phase's priva 



ize Table specifies the sizes 
as or buffers acquired by the 
ases for the construction of 
f erred to auxiliary storage, 
fies minimum block sizes for 
sets. The relevant entries in 
referenced by the initializa- 
of the several phases, before 
instruction for the particular 
te area is issued. 



The Area Size Table is set up by the 
Initialization Phase (IEX10), which deter- 
mines the appropriate size for each wcrk 
area, according to the SIZE option speci- 
fied by the user. The table in Appendix 
VIII shows the increase in work area sizes 
as the value of the SIZE option increases. 

Work areas for small-size tables trans- 
mitted between phases via the Common Work 
Area are defined by a DS statement in the 
dummy control section defining the Common 
Work Area in each phase. 



Headline Storage Area (PAGEHEAD) 



This area is provided for the headlines 
used in the printed output of the indivi- 
dual phases. The area accommodates up to 
three 90-character headlines. The 
appropriate headlines, which are stored in 
the area at initialization of each phase 
generating printed output, are fetched by 
the PRINT subroutine en call from the 
operative phase. 

The principal contents of the variable 
part of the Common Work Area during the 
several phases are as follows. 



Preliminary Error Pool 



A Preliminary Error Pool is provided in 
the originally assembled Common Work Area, 
for the recording of any errors which may 
occur before the main Error Pool is 
acquired by the Initialization Phase. Any 
recorded errors are immediately moved to 
the main Error Pool, after main storage for 
the latter has been acquired. The Preliiri- 
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nary Error Pool is deleted after the 
of the Initialization Phase. 



close 



Data ontrol Blocks for SYSIN and SYSUT1 



The above list does not include these 
tables which are transferred to external 
storage. The processing of all tables, 
except those used locally, is indicated in 
detail in Figure 3. 



The DCBs for the SYSIN and SYSUT1 data 
sets are stored in the variable part of the 
Common Work Area, since the data sets are 
not used beyond a certain point, and the 
area occupied by the DCB's can be released 
for other uses. The DCB for SYSIN is 
deleted after the close of the SCAN I/II 
Phase, while the DCB for SYSUT1 is deleted 
after the close of the Scan III Phase. 



Tables 

The following tables are constructed by 
the several phases in the variable part of 
the Common Work Area. A majority of these 
is transmitted to at least one or more 
subsequent phases via the Common Work Area. 
A few are used locally only. 

IEX11 P.B. No. Table (PBTAB1) 
Scope Table (SPTAB) 
Group Table (GPTAB) 
Semicolon Table (SCTAB) — local 
use 

IEX20 Program Block Table II (PBTAB2) 

IEX30 For Statement Table (FSTAB) 

IEX40 Address Table (ATAB) — local use 

IEX50 Program Block Table III (PBTA33) 

IEX51 Program Block Table IV (PBTAB4) 



Other Data 



The remainder of the variable part of 
the Common Work Area is used in the various 
phases for switches, addresses, counters, 
and pointers of local significance only 
(i.e. used exclusively by the operative 
phase) . In the storage maps in Appendix 
IX -a, these areas are identified as 
"private work areas". 
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CHAPTER 3: INITIALIZATION PHASE (IEX10) 



PURPOSE OF THE PHASE 



The Initialization Phase: 

1. Saves registers used by the Initial 
Entry Routine in the Directory, and 
addresses a save area (by loading 
register 13) for storing registers 
when lower- level routines, e.g. in 
the control program, are invoked by 
any of the subsequent phases. The 
save area addressed comprises the 
first 72 bytes of the Common Work 
Area. 

2. Executes the SPIE macro, specifying 
the PIROUT routine in the Directory as 
the program interrupt exit. 

3. Reads the options specified for the 
Compiler by the invoking program and 
turns on a set of switches in the 
HCOMPMOD Control Field to reflect the 
options specified. 

4. Inserts ddnames (if any are specified 
by the invoking program) in the cor- 
responding Data Control Blocks. 

5. Selects an Area Size Table, according 
to the machine system capacity indi- 
cated by the SIZE option. The Area 
Size Table specifies the main storage 
space to be provided in each phase for 
work areas and buffers, as well as 
maximum data set block sizes. 

6. Acquires main storage for the Common 
Area, containing the main Error Pool 
and Source Buffer 1 . Any errors 
detected before the main Error Pool is 
acquired are recorded in the Prelimi- 
nary Error Pool in the Common Work 
Area. 



The logic of the Initialization Phase is 
outlined in Flowcharts 007-010 in the 
Flowchart section. The following sections 
describe the principal functions performed. 



EXECUTION OF THE SPIE MACRO 



At entry to the Initialization Phase, 
after registers used by the Initial Entry 
routine have been saved, and after Register 
13 has been loaded with the address of the 
general save area in the Common Work Area, 
a SPIE macro instruction is executed which 
specifies the address of the Program Inter- 
rupt Exit routine (PIROUT) in the Directcr- 
y. By virtue of the SPIE macro instruc- 
tion, the Operating System passes control 
to PIROUT in the event of a program inter- 
rupt. When entered (in the event of a 
program interrupt) , PIROUT passes control 
to the routine whose address is stored at 
the location named ERET in the Common Work 
Area. ERET is updated in each phase so as 
to indicate the address of the appropriate 
closing routine in that phase. Immediately 
after execution of the SPIE macro, the 
address of the Initialization Phase closing 
routine GOTOTERM is stored at ERET. GOTO- 
TERM transfers control directly to the 
Termination Phase (IEX51), after releasing 
main storage and closing data sets. 

GOTOTERM is subsequently replaced as the 
program interrupt exit by OPEXERR and 
GOTOEDIT (the latter exits to IEX21 for 
output of any recorded errors, before 
transferring control to IEX51) . 



PROCESSING COMPILER OPTIONS, DDNAMES, AND 
HEADING INFORMATION 



7. Opens all data sets, after specifying 
the addresses of Open-Exit routines in 
the Data Control Blocks of the SYSIN, 
SYSLIN, SYSPUNcH, and SYSPRINT data 
sets, and after inserting block sizes 
in the Data Control Blocks of the 
SYSUT1 and SYSUT2 data sets (the block 
size is equal to the length of the 
Source Text Buffer) . Block sizes for 
SYSIN, SYSLIN, SYSPUNCH, and SYSPRINT 
are inserted by the particular Open- 
Exit routine, using the block sizes 
(if any) specified in the DD 
statements, or the maximum block size 
specified in the Area Size Table. The 
block size for SYSUT3 is included in 
the assembled Data Control Block. 



The compiler may be invoked (a) by means 
of the job control EXEC statement, i.e. 
using the facilities of the control pro- 
gram, or (b) by a user-made program. The 
options open to the user, as well as the 
concomittant obligations, insofar as the 
execution of the Compiler is concerned, 
differ under each of these alternatives. 

Where the Compiler is invoked by the 
EXEC statement, the options specifiable are 
limited to the compiler control options 
listed under "Compiler Options" below. 
Under this alternative, the key-words rep- 
resenting the compiler options specified 
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are assembled by the control program in an 
option field addressed by a pointer. At 
entry to the Compiler, the address of the 
pointer is contained in Register 1. 

Where the Compiler is invoked by a 
user-made program, the user may specify (a) 
any of the compiler options, (b) ddnames 
for data sets, and (c) heading information,, 
consisting of an opening page number for 
the printed output of the Compiler. Under 
this alternative, it is the obligation of 
the user to assemble the key-words rep- 
resenting the compiler options exercised, 
ddnames (if any) specified, and the heading 
information, in three separate fields of 
main storage (hereafter called, respective- 
ly, the option field, the ddname field, and 
the heading field) . Each field must be 
addressed by a pointer in a three -word 
address list, and the address of the 
address list must be contained in Register 
1 when control is transferred to the Com- 
piler. 

Figure 5 pictures the arrangement of the 
option,, ddname and heading fields, and the 
related pointers. The arrangement is com- 
pletely analogous under both invocation 
alternatives, except that in the case of 
invocation by EXEC statement, the ddname 
and heading fields are always vacant (the 
latter fields may also be vacant under the 
alternative invocation procedure) . A 
vacant field is indicated by the value zero 
in the corresponding pointers; value zero 
in Register 1 indicates that all three 
fields are vacant. A vacant option field 
indicates that the options exercised are 
the default options. 



Register 1 




Address List 







2 Option Field 


A(Add.List) 




A (Op. fid.) 




<Length> 


PROGRAM, SIZE = 51200,... 








A(DDn.fld.) 


\ 


2 DDname Field 




A(Hdg.fld.) 


\ 


<Length> 


SYSWRITESYSLIBSYS... 






2 Heading Field 


<Length> 


<page number > 



Figure 5. 



Option, DDname and Heading 
fields, and pointers 



The first bit of each full-word pointer 
in the address list functions as a flag, to 
indicate whether or not the field currently 
being processed is the last to contain 
significant data. The bit is tested after 
each field has been processed, to determine 
whether the next field is to be processed. 
Thus, for example, if the flag bit is on in 
the option field pointer, indicating that 
the ddname and heading fields are vacant, 
the DDNAMES and HEADINFO routines, which 



process the ddname and heading fields will 
be bypassed. The address of the address 
list is obtained from the Operating 
System's save area, in which the contents 
of Register 1 will have been stored after 
entry to the Compiler. 



COMPILER OPTIONS 



The processing of Compiler options con- 
sists in reading the key-words listed in 
the option field and in setting appropriate 
switches in the HCOMPMOD Control Field 
(Appendix IV) to reflect the particular 
options specified. 

The key-words representing valid options 
which may be specified for a compilation 
are as fellows (the first key-word corres- 
ponds to the default option) : 

SIZE = (a number >45056] 
PROGRAM (PG) or PROCEDURE (PC) 
SHORT (SP) or LONG (LP) 
SOURCE (S) or NOSOURCE (NS) 
LOAD (L) or NOLOAD (NL) 
NODECK (ND) DECK (D) 
EBCDIC (EB) or ISO (I) 
TEST (T) or NOTEST (NT) 

The letters within parentheses represent 
the alternative (abbreviated) form in which 
the option may be specified. The key-words 
are recorded in the option field in EBCDIC 
code and are separated by commas. Except 
in the case of the SIZE option, each option 
is identified by comparing the key-word 
with a list of 28 possible key-words in a 
table named PARMLIST. 
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| <Key-word| 

| length-l>| <key-word> 
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Figure 6. PARMLIST Table entry for a 
piler option key-word 



Ccm- 



In addition to the option key-word and 
the key-word length (-1), each entry in the 
PARMLIST Table contains a logical instruc- 
tion (NI or 01) which, when executed, turns 
on a specified switch in the HCCNPMCD 
Control Field (Appendix IV). As soon as a 
key-word in the PARMLIST Table is found 
which matches the key-word in the option 
field, the instruction in the table is 
EXECUTEd, turning en the appropriate switch 
in the Control Field and thus recording the 
option specified. 

The SIZE option is identified by a CLI 
instruction. After recognition, the size 
specified is converted to binary and stored 
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at SIZE, provided it is not less than the 
minimum capacity required. The size is 
subsequently referenced in selecting the 
Area Size Table (see below). If an option 
is incorrectly specified, error No, 200 is 
recorded in the Preliminary Error Pool in 
the Common Work Area and the default option 
is assumed. If the main storage size 
specified is less than the minimum, error 
No. 208 is recorded, and the minimum size 
of 45,056 is assumed. The contents of the 
Preliminary Error Pool are subsequently 
moved to the main Error Pool after the 
Common Area has been acquired. 



DDNAMES 



The processing of ddnames consists in 
transferring the ddnames (if any) from the 
ddname field to the relevant Data Control 
Blocks. Unless a ddname field is provided 
in a user-written program which invokes the 
Compiler, the ddname field is vacant (Data 
Control Blocks contain the ddnames required 
by the Compiler). 

The ddnames, each consisting of a maxi- 
mum of eight EBCDIC characters, will have 
been entered in the ddname field in pres- 
cribed positions, according to the physical 
device involved. Data Control Block 
addresses are listed, in corresponding 
order and position, in the Common Work 
Area, beginning at LINADD. This enables 
the ddnames to be transferred to the 
appropriate DCB in sequence- 



tion Phase (IEX10) acquires a Common Area 
used by all phases (see below). 

To enable the Compiler to adapt itself 
flexibly to the available storage capacity, 
the space allotment for certain work areas 
is scaled to the capacity of the particular 
machine system as specified in the SIZE 
option. Twelve capacity levels are estab- 
lished, beginning at 45,056 bytes and 
graduated upwards at increasing intervals, 
up to a maximum of 999,999 bytes. At each 
capacity level, specific area sizes are 
defined for all work areas and buffers. 
Capacity levels and area sizes are defined 
by twelve Area Size Tables, the first of 
which is named ARTAB. 

The FNDARSIZ routine selects the 
appropriate Area Size Table, according to 
the machine capacity specified in the SIZE 
option, and moves the table to the Common 
Work Area at the field beginning at INBLKS. 
The table thus selected, which specifies 
the main storage space to be acquired for 
all work areas, is referenced by the irain 
working phases at initialization, before 
the GETMAIN instruction for the phase's 
private area is executed. 

In addition to work area sizes, the Area 
Size Table also specifies the maximum blcck 
sizes for the SYSIN, SYSPRINT, SYSLIN, and 
SYSPUNCH data sets. The maximum blcck 
sizes are referenced by the Open-Exit rou- 
tines (see below) . 

Appendix VIII shows the increase in the 
size of work areas, buffers and maxiirurr 
block sizes as the SIZE option increases. 



HEADING INFORMATION 



ACQUISITION OF COMMON AREA 



The heading information which may be 
specified, consists solely of a starting 
page number for the printed output of the 
Compiler. Where no page number is speci- 
fied, page numbering begins with the number 
1. 

The page number (if any) in the heading 
field is moved to a counter named PAGECNT, 
which is updated and referenced by the 
PRINT subroutine in the Directory. 



SELECTION OF AREA SIZE TABLE (FNDARSIZ) 



The Initialization Phase acquires a Com- 
mon Area containing Source Buffer No.l and 
the Error Pool, in which compile time 
errors detected in the several phases are 
recorded. The sizes of the buffer and 
Error Pool are obtained from the Area Size 
Table. The use of Source Buffer No. 1 is 
discussed under "Use of Main Storage" in 
Chapter 1 . 

After acquisition of the Error Pool, the 
contents (if any) of the Preliminary Error 
Pool in the Common Work Area are moved to 
the newly acquired Error Pool. 



With the exception of load modules 
IEX10, IEX21, IEX31, and IEX51, each phase 
of the Compiler acquires a private area 
containing one or more work areas or buf- 
fers for the construction, processing, or 
output of working tables. The Initializa- 



OPENING OF DATA SETS 



The Initialization Phase opens all data 
sets used by the Compiler, namely SYSLIN, 
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SYSPRINT, SYSIN, SYSPUNCH, SYSUT1, SYSUT2 , 
and SYSUT3. The DCBs of SYSIN and SYSUT1 
are contained in the Common Work Area (this 
facilitates the release of main storage for 
other uses when the data set is no longer 
needed after the Scan I/II and Scan III 
Phases, respectively); all other DCBs are 
contained in Control Section IEX00000 of 
the Directory. DCB addresses are listed in 
the Common Work Area, beginning at LINADD. 

Immediately before the OPEN macro 
instruction is executed, the addresses of 
the Open- Ex it routines INEXRT, LINEXRT, 
PCHEXRT, and PRTEXRT are stored in the 
SYSIN, SYSLIN, SYSPUNCH, and SYSPRINT DCBs. 
The Open-Exit routines, which are entered 
from the Operating System when the OPEN 
macro instruction is issued, serve to veri- 
fy that the block size (if any) specified, 
is a multiple of the record length and does 
not exceed the maximum specified in the 
Area Size Table. If the block size is not 
specified at invocation or if the block 
size is incorrectly specified, the Open- 
Exit routine inserts the record length as 
the block size. If the block size is 
incorrectly specified, an error is 
recorded, and in the case of SYSIN, the 
NOGO switch (Appendix IV) is turned on, 
causing compilation to be subsequently ter- 
minated. In the case of the SYSUT1 and 
SYSUT2 data sets, the block size (equal to 



the source buffer length specified in the 
Area Size Table) is inserted directly, 
before the OPEN macro instruction is 
issued. In the case of SYSUT3, the block 
size is specified in the DCB at assembly 
time. 

When control is recovered from the Oper- 
ating system OPEN routine, a test is made 
to determine if the SYSPRINT data set has 
been opened (in the negative case, Error 
No. 201 is recorded and the PRTNO and NCGO 
switches are turned on, causing compilation 
to be terminated after the error message 
has been printed out by Load Module IEX21 
on the console typewriter). If the data 
set has been successfully opened, the date 
is derived and edited from the system 
clock, and the title "LEVEL 1 JUL 67 OS 
ALGOL F DATE [date]" is printed on a new 
page. 

Tests are then made to determine if the 
remaining data sets have been opened. If 
all data sets have been correctly opened, 
control is passed to the Scan I/II Phase 
(IEX11). If any data set has not been 
opened, an error is recorded, and in the 
case of SYSIN, SYSUT1, SYSUT2 , or SYSUT3 , 
the NOGO and TERR switches are turned on, 
causing compilation to be terminated after 
recorded error messages have teen printed 
out by Load Module IEX21. 
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CHAPTER Hz SCAN I/II PHASE (IEXll) 



PURPOSE OF THE PHASE 



The purpose of the Scan I/II Phase is to 
read the source module and perform the 
following principal tasks. 

1. To tabulate and classify all valid 
identifiers declared or specified in 
the source module,, in the Identifier 
Table, Declared identifiers include 
those designated by such declarators 
as 'REAL', 'INTEGER', 'ARRAY' , or 
'PROCEDURE* , among others, as well as 
labels. Specified identifiers are 
formal parameters of procedures, spec- 
ified in a procedure heading. 

The Identifier Table, which is further 
processed in the two subsequent phas- 
es, facilitates the construction of 
the internal names of identifiers and 
the replacement of identifiers in the 
source text by their internal names. 
An identifier's internal name consists 
of a five- byte unit containing a des- 
criptive characteristic, a Program 
Block Number, and a displacement 
address. 

The Program Block Number specifies 
(indirectly) a Data Storage Area, com- 
prising the object time storage area 
required for all identifiers declared 
or specified in the particular block 
or procedure. The displacement 
address specifies (in the case of a 
declared label, switch, or procedure 
identifier) the displacement of an 
entry in the object time Label Address 
Table, or (in the case of all other 
identifiers) the displacement of a 
storage field in the particular Data 
Storage Area. 

The entries in the Identifier Table 
consist of the identifier's external 
name (represented by a maximum of six 
characters translated to internal 
code) , followed by the five-byte 
internal name described above. For 
declared label, switch, and procedure 
identifiers, the complete entry, com- 
prising external and internal name, is 
constructed by the present phase. For 
all other identifiers, the present 
phase enters the external name and 
constructs all except the address part 
of the internal name. The Data Stor- 
age Area displacement address is 
inserted in the entry by the Identifi- 
er Table Manipulation Phase, in which 



object time storage fields are allo- 
cated to all identifiers listed in the 
table, other than declared label, 
switch, and procedure identifiers. 

The Identifier Table is terminated in 
the Scan III Phase,, when all external- 
ly represented operands in the source 
text are replaced by their internal 
names in the table. 

2. To assign a serial Program Block Num- 
ber to every block and procedure in 
the source text. The same Program 
Block Number appears in the internal 
names of all identifiers declared or 
specified in the particular block or 
procedure. 

At object time, the Program Block 
Number references an entry in the 
Program Block Table, containing, among 
other things, the size of a Data 
Storage Area. In the object code 
generated by the Compilation Phase, an 
operand is represented by the address 
of the Data Storage Area (loaded in a 
base register) and the displacement 
contained in the operand's internal 
name . 

3. To generate a transformed source text, 
called Modification Level 1. A second 
transformation of the source text,, 
called Modification Level 2, is gener- 
ated by the Scan III Phase. The 
changes reflected in the first trans- 
formation include an initial one-f cr- 
one translation of all characters in 
the source text to the internal code, 
the replacement of all ALGOL delimiter 
words by one-byte operators, and the 
removal of declarations, except 
procedure, array, and switch declara- 
tions, from the source text. These 
and other changes are described in a 
later section under the heading 
"Modification Level 1 Source Text". 

4. To store strings enclosed by string 
quotes, ' (' ')', in the Constant Pool, 
and to replace the string in the 
transformed source text by an internal 
name referencing the location where 
the string was stcred. All constants 
other than strings are stored in the 
Constant Pool by the Scan III Phase. 

5. To recognize syntactical errors in the 
source module and to store appropriate 
error patterns in the Error Pool. The 
contents of the Error Pool are printed 
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out in the form of diagnostic messages 
by the Error Message Editing routine 
in the next module but one (IEX21) , 
after execution of the identifier 
Table Manipulation Phase. 

6. To print a listing of the source 
module, if the SOURCE option is speci- 
fied, 

7. To assign a serial Identifier Group 
Number to every block, procedure, and 
for statement in the source module. 
The Identifier Group Number is used in 
the Scan III Phase to verify the 
validity of goto statements, and to 
facilitate the classification of for 
statements (see Item 8). 

8. To construct a Group Table listing all 
Identifier Group Numbers and identify- 
ing each for statement represented in 
the list. The Group Table is used in 
the Scan III Phase, in classifying the 
opt imiz ability of for statements con- 
taining goto statements which imply a 
branch out of the for statement. 

9. To construct a Scope Table indicating 
the Program Block Number of the block 
or procedure enclosing every for 
statement. The Scope Table is used in 
the Scan III Phase to ascertain if all 
terms of subscript expressions of 
array identifiers occurring in for 
statements are valid (i.e. declared) 
outside the for statement. This is 
one of several conditions for sub- 
script optimization. 

10. To construct the Program Block Number 
Table, indicating the Program Block 
Number of the block or procedure 
immediately enclosing every block and 
procedure in the source program. The 
table is constructed for purposes of 
user- information and is used in the 
Identifier Manipulation Phase in the 
print-out of the Identifier Table. 



SCAN I/II PHASE OPERATIONS 



The two primary functions of the Scan. 
I/II Phase are: 

1. To tabulate all identifiers declared 
or specified in the source module, in 
the Identifier Table. 

2. To generate a transformed source text 
(Modification Level 1). 

In principle, these functions are per- 
formed by searching the source text for 



ALGOL delimiter words (e.g., 'BEGIN' or 
"STEP"), as well as other multicharacter 
operators (e.g., := or .,). If a delimiter 
constitutes a declarator (e.g., 'INTEGER*) ., 
or a specif icator, entries are made for the 
immediately following identifiers in the 
Identifier Table, after each identifier has 
been checked for validity. Otherwise, a 
one- byte symbol representing the delimiter 
is transferred to the output buffer. Other 
multicharacter operators are similarly 
replaced by one-byte symbols. Statements, 
containing externally represented operands 
(identifiers) and operators are transferred 
unchanged, except that any delimiter words 
and multicharacter operators within the 
statement are replaced by cne-byte symbols. 
(See "Modification Level 1 Source Text" in 
this chapter. ) 



The following provides a general des- 
cription of the main operations performed 
in the Scan I/II Phase, illustrated graphi- 
cally by the diagram in Figure 7. The 
description is intended to be read in 
conjunction with the diagram. 



At the extreme left of the diagram, it 
will be seen that the source module (in 
card or card-image records* EBCDIC or ISC 
code) is read from the SYSIN data set into 
an 8 -byte field of the Common Work Area by 
the CIB subroutine. Immediately after 
read- in, a copy of the record is moved tc a 
print area (or a dummy print area, if the 
SOURCE option was not specified), and the 
record in the Work Area is then translated 
to the internal code (Appendix I-a. Appen- 
dix I-b shows the same character set, 
expanded by the characters which replace 
delimiter words). The untranslated source 
text in the print area is used in printing 
a listing of the source module. It is also 
used to enable character strings to be 
stored in the Constant Pool in their origi- 
nal EBCDIC or ISO code. The CIB subrou- 
tine, first activated at phase initializa- 
tion, is subsequently called by any routine 
which detects the record- end operator Zeta 
(the operator is inserted by CIB at the end 
of each translated source record). 



In the Work Area, the translated source 
text is scanned by the TESTLOOP routine, 
which searches for any of 14 different 
characters. As scon as any one of these 
characters is identified, TESTLOOP moves 
the preceding scanned characters to the 
Modification Level 1 text in an output 
buffer, and then activates the appropriate 
routine. The diagram indicates the rou- 
tines activated in the case of 12 of the 14 
characters (the remaining two are the Blank 
and the Invalid Character,, which are,, in 
effect, ignored). 
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zrBOLCON transfers a 
five-byte internal n 
referencing a location in 
the Constant Pool where 
binary 1 and are stored . 



Figure 7. Scan I/II Phase. Diagram illustrating functions of principal constituent routines 



For a majority of the characters, the 
character is simply transferred to the 
output buffer or replaced by another char- 
acter , depending on the character which 
follows. In the case of a colon, the COLON 
routine may: 



1. Transfer 



Label Colon and construct 



an entry in the Identifier Table for 
the preceding label; 



Replace a letter string by a Comma ; or 



Transfer the Assign operator. 



In the case of a semicolon, the SEMCO 
routine inspects the Scope Handling Stack 
to determine if the semicolon closes a 
procedure or a for statement, and if so, 
activates the appropriate subroutine 
(PBLCKEND or FOREND) . See "Close of 
Scopes" .. If a semicolon terminates a dec- 
laration, SEMCO transfers the Delta opera- 
tor to the Modification Level 1 text; 
otherwise, the Semicolon operator is trans- 
ferred. 

The record- end operator Zeta causes TES- 
TLOOP to call the CIB subroutine, which 
reads in a new record and translates it to 
the internal code. 

The apostrophe leads into the Apostrophe 
routine (APOSTROF). APOSTROF scans the 
text immediately following the apostrophe, 
for a digit or +/- sign, a second apos- 
trophe, or one of a set of logical opera- 
tors. A digit or +/- sign identifies the 
apostrophe as the Scale Factor . A second 
apostrophe indicates an ALGOL delimiter 
word (that is, a string of letters or an 
operator enclosed by apostrophes). In this 
case, the Delimiter routine (DELIMIT) is 
entered. If the scan is terminated by a 
logical operator (indicating that the clos- 
ing apostrophe of a delimiter is missing) , 
the Delimiter Error routine (EROUT — not 
shown in the diagram) is activated. EROUT 
differs from DELIMIT, described below, only 
in point of procedural detail. 

DELIMIT compares the characters enclosed 
by apostrophes with a list of 38 delimiter 
words in the Delimiter Table (WITAB) and 
branches to the routine specified in the 
table for the particular delimiter. a 
majority of delimiters (21) lead into the 
NORMAL, TEDr or GIF routines, which simply 
transfer the one- byte symbol in the Delimi- 
ter Table to the Modification Level 1 text. 
Declarators and specif icators lead into 
routines which construct entries in the 
Identifier Table for the immediately fol- 
lowing identifiers. 



OPENING OF SCOPES 



Whenever the delimiter opening a block, 
a procedure, a for statement, or a compound 
statement is encountered, a one- byte opera- 
tor identifying the particular scope is 
entered in the Scope Handling Stack. The 
operators Beta (for a block) , Proc (for a 
procedure) , For (for a for statement),, and 
Be gin (for a compound statement), are 
stacked by the BEGl, PROCEDUR, FOR,, and 
BEGIN routines, respectively. Depending on 
the structure of the body of a procedure,, 
the operator Proc may subsequently be 
replaced by the operators Proc* or Proc** 
in the BEGIN, STATE, or FOR routines. See 
"Scope Handling Stack". 



At the beginning of every block and 
procedure, a program block heading entry,, 
containing a new Program Block Number * is 
constructed in the Identifier Table. The 
Program Block Number in the heading entry 
is copied into the following identifier 
entries representing identifiers declared 
or specified in the particular block or 
procedure. Similarly,, at the opening of 
every for statement, a for statement head- 
ing entry is constructed in the Identifier 
Table. The for statement heading entry is 
subsequently deleted unless it is followed 
by one or more identifier entries rep- 
resenting a label cr labels declared inside 
the particular for statement. In the lat- 
ter case, a for statement closing entry is 
made at the end of the for statement. 
Program block heading entries are con- 
structed by BEG1 (for a block) and PROCID 
(for a procedure) ; for statement heading 
and closing entries by FOR and FOREND, 
respectively. 



The BEG1 subroutine, which stacks the 
operator Beta and constructs the program 
block heading entry at the opening of a new 
block, is entered from any routine process- 
ing the first declaration following the 
delimiter 'BEGIN 1 . Entry to BEG1 is gov- 
erned by a switch named BEGBIT, which is 
turned on by the BEGIN routine, entered 
from DELIMIT on recognition of the delimi- 
ter 'BEGIN*. BEGBIT is tested in all 
declaration-processing routines 
(immediately after entry from DELIMIT),, and 
if the switch is on, a call is made to BEGl 
before the particular declaration is proc- 
essed. 



BEGl and PROCEDUR also construct entries 
in the Group Table, Program Block Number 
Table, and Semicolon Table. FOR makes 
entries in the Scope Table and Group Table. 
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PROCESSING OF DECLARATIONS AND 
SPECIFICATIONS 



In the construction of entries in the 
Identifier Table for declared or specified 
identifiers , the external name is copied 
from the translated source text in the Work 
Area, while the characteristic is inserted 
by an MVI instruction or, in the case of 
specified identifiers , copied from the 
Delimiter Table, 

Type declarations ( ' REAL' , ' INTEGER • , 
and 'BOOLEAN') are processed by the TYPE 
routine. 

All type declarations are completely 
removed from the Modification Level 1 
source text, whereas procedure, switch and 
array declarations are represented in the 
modified source text by a one- byte declara- 
tor, followed by the identif ier (s) , as well 
as parameters,/ components^ or dimensions. 

Array and switch declarations are proc- 
essed by the ARRAY, SWITCH, and LIST rou- 
tines. The main function of the LIST 
routine, which branches to several subrou- 
tines is to count the number of dimensions 
or components of arrays and switches, and 
to store this information in the appropri- 
ate identifier entries. 

Entries for declared procedure identifi- 
ers are made by the PROCEDUR, PROCID, and 
IDCHECK1 routines. The external names of 
formal parameters in the parameter list 
following a procedure identifier are copied 
into the Identifier Table by the IDCHECK1 
subroutine on call from PROCID. The char- 
acteristics of formal parameters are 
entered subsequently when the specifi- 
cations in the procedure heading are proc- 
essed. The routines which process specifi- 
cations include, firstly, the TYPE, VALUE, 
SPEC, ARRAY, SWITCH, and PROCEDUR routines 
(depending on the particular specif icator) , 
and secondly, the SPECENT and IDCHECK rou- 
tines (SPECENT is a special entry point of 
IDCHECK) . 

To distinguish between declarations and 
specifications, a switch named PROBIT is 
used. PROBIT is turned on by PROCEDUR, as 
soon as a procedure declaration is recog- 
nized, to signify that a procedure heading 
has been entered. If a delimiter (say 
'REAL') is subsequently encountered, the 
condition PR0BIT=1 signifies that the deli- 
miter is a specif icator rather than a 
declarator and causes the particular rou- 
tine activated (TYPE in this case) to 
branch directly to SPECENT. 

After copying the appropriate charac- 
teristic from the Delimiter Table to a 
standard storage location, SPECENT (or 



IDCHECK) compares each identifier following 
the specif icator (•REAL" in this example) 
with the formal parameters previously 
copied into the Identifier Tafcle from the 
parameter list, and when the matching iden- 
tifier is found, moves the characteristic 
into the identifier entry. 

No part of the procedure heading except 
the procedure identifier and the parameter 
list is transferred to the Modification 
Level 1 text. Type-qualified procedure and 
array declarations are processed by the 
TYPE, TYPPROC, or TYPARRAY, and PROCEDUR or 
ARRAY routines, in that order. 



CLOSE OF SCOPES 



When the delimiter 'END' is encountered, 
the END routine inspects the operator at 
the top of the Scope Handling stack and 
calls an appropriate subroutine (PBLCKEND, 
FOREND, or COMPDEND),, according to the 
stack operator detected. 

PBLCKEND is called if 'END 1 closes a 
block or a procedure (indicated by the 
stack operators Beta ,, Proc, Proc* or 
Proc**) . PBLCKEND transfers the last block 
of entries in the Identifier Table rep- 
resenting identifiers declared or specified 
in the closed block cr procedure., to the 
SYSUT3 data set; releases the stack opera- 
tor; and transfers the closing operator 
Epsilon to the Modification Level 1 text. 
FORENd and COMPDEND (which are called if 
the stack operator is For or Begin , 
respectively), transfer the operators Eta 
or End to the modified text, and release 
the stack operator, FOREND may also con- 
struct a for statement closing entry in the 
Identifier Table, or delete the preceding 
for statement heading entry. 

The Scope Handling Stack is also 
inspected by the SEMCO routine in case a 
semicolon closes a procedure or a for 
statement. In the affirmative case,, the 
PBLCKEND or FOREND subroutine is called. 



END OF PHASE 



The Termination routine (EGDADIN),, which 
closes the Scan I/II Phase, is normally 
entered as an EOD (End of Data) routine 
from the Operating System,, after the 
PBLCKEND subroutine has detected the final 
exit from the outermost scope of the source 
module and has initiated a special scan of 
the closing text, designed to detect possi- 
ble logical errors. EODADIN may alsc be 
entered when a terminating error has been 
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detected in the source module , in which 
case control is passed directly to Diag- 
nostic Output Module IEX21, rather than to 
the Identifier Table Manipulation Phase 
(IEX20). The conditions under which EODAD- 
IN is entered are described more fully 
under "Close of Scan I/II Phase". 

Flowcharts Oil and 012 in the Flowchart 
Section indicate the logical arrangement of 
the principal routines in the Scan I/II 
Phase. All of the major routines illus- 
trated in the diagram in Figure 7 , namely 
TESTLOOP, APOSTROF, and DELIMIT, can be 
readily distinguished in the charts. The 
various levels of routines entered from 
each of these routines may be seen in both 
the chart and the illustrative diagram. 



the Program Block Number of the block or 
procedure, and the record length are con- 
tained in the first (heading) entry. 

An ESD record for the object module and 
TXT records of the strings stored in the 
Constant pool are generated on the SYSLIN 
and/or SYSPUNCH data sets, provided the 
options LOAD and/or DECK are specified in 
the EXEC job control statement. If the 
source module is a precompiled procedure to 
be stored on a partitioned data set, the 
ESD record will contain the procedure name. 
If the SOURCE option is specified, a list- 
ing of the source module is printed out on 
SYSPRINT . 



Input 



The name of this phase, Scan I/II, 
derives from the fact that the source 
module is twice scanned in the phase, first 
by the Change Input Buffer subroutine 
(CIB) , when the source text is translated 
to the internal code, and second by TES- 
TLOOP, APOSTROF, or some other lower level 
routine. 



PHASE INPUT/OUTPUT 



Figure 8 pictures the data input to and 
output from the Scan I/II Phase. The 
figure also indicates the tables and other 
data transmitted to the subsequent phases 
via main storage. 

Input consists of the source module on 
the SYSIN data set (card reader, disk unit, 
or magnetic tape unit). Input records, 80 
characters in length, are read into the 
Work Area (WA) by means of a GET macro 
instruction. 

The transformed source text 
(Modification Level 1) output by the phase 
is transferred to the SYSUT1 data set by a 
WRITE macro instruction from two alternat- 
ing output buffers in unblocked, fixed 
length records. At phase termination, the 
data set is closed by a Type T CLOSE (no 
repositioning to the beginning of the data 
set) . Records are numbered serially from 
0. In the event the transformed source 
text occupies less than one full buffer, it 
is transmitted to the Scan III Phase via 
main storage. 

The Identifier Table is transferred to 
the SYSUT3 data set by means of a WRITE 
macro instruction, in variable- length 
records of up to 2000 bytes (181 Identifier 
Table entries of eleven bytes each) . Each 
record comprises the set of identifiers 
declared or specified in a block or proce- 
dure. The record number, represented by 



SYSIN 
Source Module 



SCAN I/II 
PHASE 



Main Storage 

Error Pool 
Group Table 
Scope Table 
Program Block 

Number Table 
[Modification 
Level 1 Source 
Text*] 



Modification 
Level 1 Source 
Text 



SYSUT3 
Identifier Table 



SYSLIN/SYSPUNCH 



ESD record and 
TXT records of 
Constant Pool 



* Source text transmitted in main storage if it 
occupies less than a full buffer. 



Source Module 
Listing 



Figure 8. Scan I/II Phase Input/Output 



IDENTIFIER TABLE (ITAB) 



The Identifier Table (ITAB) is a working 
record in which an internal form of operand 
representation, facilitating later compila- 
tion operations, is constructed for every 
valid identifier declared or specified in 
the source module. This internal represen- 
tation, referred to as an identifiers 
internal name, replaces all externally rep- 
resented operands in the source module. 
The replacement is made in the Scan III 
Phase after the construction of the Iden- 
tifier Table has been completed by the 
Identifier Table Manipulation Phase. 
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The entry constructed for an identifier, 
called an identifier entry, is eleven bytes 
in length. It contains up to six charac- 
ters of the identifier's external name, 
translated to internal code, and a five- 
byte internal name. For declared procedure 
and switch identifiers and labels, the 
complete entry, comprising external and 
internal name, is constructed in the Scan 
I/II Phase. For all other identifiers, the 
external name and all except the address 
part of the internal name is constructed in 
the present phase, the address part being 
inserted in the Identifier Table 
Manipulation Phase. 

Each set of identifier entries rep- 
resenting identifiers declared or specified 
in a block or procedure, is headed by a 
program block heading entry. The heading 
entry contains the Program Block Number 
assigned to that block or procedure. At 
the close of a block or procedure, the 
block of entries relating to that block or 
procedure is transferred as a record to the 
SYSUT3 data set. 

Within a given block of entries, an 
entry (or entries) representing a label (or 
labels) declared inside one or more for 
statements, is enclosed by one or more for 
statement heading entries and a for state- 
ment closing entry. The Identifier Group 
Numbers in the for statement heading and 
closing entries are used, in the Scan III 
Phase, in detecting illegal branches into 
for statements. (SWILA routine in IEX30.) 
The processing of the Identifier Table is 
described in further detail in a later 
section. 



IDENTIFIER ENTRIES 



Figure 10 shows the content of the 
el even- byte entry constructed in the Scan 
I/II Phase for all identifiers except those 
of declared arrays, procedures, switches, 
and labels. The identifier's external 
name, represented by a maximum of six 
characters in internal code (Appendixes I-a 
and I-b) , is copied from the translated 
source text in the Work Area, after the 
full identifier has been checked for valid- 
ity. If the identifier does not satisfy 
the specifications of the OS/ 360 ALGOL 
Language with respect to validity, no entry 
is made, and an error is recorded in the 
Error Pool. 

The two-byte characteristic, in the case 
of declared identifiers, is provided by the 
program (i.e. by an MVI instruction). In 
the case of specified identifiers, the 
characteristic is copied from the Delimiter 
Table (see DELIMIT routine). If an array 



or procedure identifier is type-qualified, 
the characteristic is modified by a logical 
instruction to show the type. 

The hexadecimal value of the charac- 
teristic for each type of identifier is 
shown in the table in Appendix II. The 
characteristic, which serves to describe 
the identifier, is inspected in the subse- 
quent phases. Each of the binary positions 
in the characteristic identifies (when set 
= 1) a particular characteristic of the 
identifier. The significance identified 
with each position is shown in Figure 9. 
Bits 5 and 6 cf the first byte are desig- 
nated Special Use Bits because they may be 
manipulated in the Scan III Phase if the 
identifier is a critical identifier, that 
is, if the identifier occurs in a for list. 

First Byte (Byte 6 in identifier entry) 



Bit No: 


Description 


;} 


Operand (See use of bits 0-2 


in "Operator/Operand 




Stacks" - Chapter 3) 


2 


Not used 


3 


Not used 


4 


No Assignment 


5 


Special Use 1 


6 


Special Use 2 


7 


String 


Second Byte 


(Byte 7 in identifier entry) 


Bit No: 


Description 





Standard Procedure ) Procedure 
Code Procedure f 


1 


2 


Call by Value ^ Simple 
Call by Name J Variable 


3 


4 


Label 


5 


Array 


6 


Real \ Boolean 
Integer J 


7 


Figure 9. 


Identifier Characteristic 



The Program Block Number (P^B.No.) is 
copied from the program block heading entry 
of the block or procedure in which the 
identifier is declared or specified. 

With the exceptions already noted and 
described more fully below, the last two 
bytes of the identifier entry as construct- 
ed in the Scan I/II Phase, are filled with 
zeros. They are reserved for a relative 
address which is inserted by the Identifier 
Table Manipulation Phase. The address spe- 
cifies the identifier's object time storage 
field within the Data Storage Area provided 
for the block or procedure in which the 
identifier was declared or specified. 

Figure 11 shews the content of the entry 
constructed for a declared array identifi- 
er. The external name, characteristic, and 
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Program Block Number are entered in the 
manner described above. The number of 
subscripts (or dimensions) of the array is 
entered in the first half of byte 9. The 
last one-and-a-half bytes, filled with 
zeros in the Scan I/II Phase, are reserved 
for the relative address of the array's 
Storage Mapping Function in the particular 
Data Storage Area. The address is inserted 
in the Identifier Table Manipulation Phase. 

The entry constructed for a declared 
procedure identifier is shown in Figure 12. 
The external name and characteristic are 
entered in the manner described earlier. A 
new Program Block Number is assigned to the 
procedure. This same Program Block Number 
appears in the immediately following pro- 
gram block heading entry, which heads the 
set of entries representing formal paramet- 
ers specified in the procedure. The number 
of parameters of the procedure is entered 
in the first half of byte 9. The last 
one- and- a- half bytes of the entry contain 
the relative address, referred to as the 
Label Number (LN), of a four-byte entry 
reserved in the object time Label Address 
Table (LAT). At object time, the Label 
Address Table entry contains the absolute 



address of the 
the procedure. 



object code generated for 



In the case of a declared type- 
procedure, the heading entry which follows 
the procedure identifier entry is followed 
by a second entry for the procedure 
identifier. The two identifier entries for 
a type-procedure are identical, except that 
in the entry which precedes the heading 
entry, the first byte of the characteristic 
is equal to hexadecimal CA, while in the 
entry which fellows the heading entry, the 
first byte of the characteristic is equal 
to hexadecimal C2. 

Figure 13 shows the entry constructed 
for a declared switch identifier. The 
entry is identifical with that for a 
declared procedure identifier, except that 
the first half of byte 9 contains the 
number of components of the switch, minus 
one. 

The entry constructed for a declared 
label is shown in Figure 14. The entry 
differs from that for a procedure identifi- 
er only in that the first half of byte 9 is 
unused and set to zero. 



6 



8 



11 



"T T T 1 

| <Character- | <P .B . | (Reserved) | 
| istic>| No.>| | 

_JL ± j J 

< (Internal Name) > 



<External Name> 



<P.B.No.> ~ <Program Block Number> 

(Reserved) ~ The last one-and-one-half bytes are reserved for the relative address 
of the identifiers' s object time storage field — inserted by the 
Identifier Table Manipulation Phase 

Figure 10. Identifier Table entry for all identifiers except declared array, procedure 
and switch identifiers and labels 







8 



10 



11 



„ T T 1 1 

|<Character-|<P.B. |<NOS> (Re- | 
| istic>| No.>| served) j 

-JL ± 1 J 

< (Internal Name) > 



<External Name> 



<P.B.No.> = <Program Block Number > 

<NOS> = <Number of subscripts, minus one> 

(Reserved) - The last one-and-one-half bytes are reserved for the relative address 
of the array's Storage Mapping Function, inserted by the Identifier 
Table Manipulation Phase. 

Figure 11. Identifier Table entry as constructed in the Scan I/II Phase for a declared 
array identifier 



Chapter 4: Scan I/II Phase 37 



<External Name> 



I 

-A- 



8 9 10 

<Character- | <P. B. | <NOP> <LN> 
istic>| No.>| 

(Internal Name) : 



11 
i 



<P.B.No.> = <Prograni Block 

Number> 
<N0P> = <Number of parameter s> 
<LN> = <Pelative address of an 

entry in Label Address 

Table> 

Figure 12. Identifier Table entry for a declared procedure identifier 



8 



10 



11 



<External Name> 



Figure 



T T 1 1 

|<Character-|<P.B.|NOC <LN> | 
J istic>| No.>| J 

< (Internal Name) > 

<P.B.No.> = <Program Block 

Number > 
<N0C> = <Nurober of components, 

minus one> 
<LN> = <Relative address of an 
entry in Label Address 
Table> 

13. Identifier Table entry constructed in the scan I/II Phase for a declared 
switch identifier 



<External Name> 



I 

-A- 



8 9 

T T 

<Character-| <P.B.| 
istic>| No.>| 

A J 

(Internal Name)- 



10 1.1 

1 

<LN> | 

I 

J 



<P.B.No.> = <Program Block 

Number > 
<LN> = Relative address of an 

entry in Label Address 

Table> 

Figure 14. Identifier Table Entry constructed in the Scan I/II Phase for a declared 
label 



PROGRAM BLOCK HEADING ENTRIES 



A program block heading entry heads 
every set of identifier entries represent- 
ing identifiers declared or specified in a 
block or procedure. 

Figure 15 indicates the content of the 
eleven-byte program block heading entry. 
The first eight bytes provide two four- byte 
save areas, in which the contents of the 
pointers LIGP and LPBP are stored, before 
these pointers are set to the address of 
the heading entry itself. The first bit of 
byte 8 functions as a switch to indicate if 
the scope is a type-procedure. In this 



case, the bit is set = 1; in all other 
cases, it is set = 0. The Identifier Group 
Number (I.G.No.) and Program Block Number 
(P.B.No.) are copied from two counters 
(IGN and PBN),. IGN is incremented for 
every block, procedure, and for statement, 
while PBN is incremented for blocks and 
procedures only. 



At the close of a block or procedure, 
when the set of entries representing iden- 
tifiers declared or specified in the block 
or procedure is transferred to a utility 
data set, the length of the record to be 
transferred and the semicolon count (copied 
from the corresponding entry in the Semico- 
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Ion Table) are inserted in the heading 
entry, as indicated in Figure 16. 



I 
I 



8 9 10 11 

|<K> <I.G. |<P.B. | 

| No.>| No.>| 

-J X J 



<LIGP> 



<LPBP> 



I 



<LIGP> = <Address of preceding for statement or program 
block heading entry> 

<LPBP> = <Address of preceding program block heading 
entry> 



<K> 



X'8' for a type-procedure; 
X'O' in all other cases 



Figure 15 • Program block heading entry 



8 



10 



11 



IX^B" |<Semicolon|<K> <I.G. |<P.B. | 
| | Count> | No.>| No.>| 

-X X X L J 



|<Record | 
| length> | 

L X- 



Figure 16, Program block heading entry, as transmitted to the SYSUT3 data set 



FOR STATEMENT HEADING AND CLOSING ENTRIES 



A for statement heading entry is con- 
structed in the Identifier Table as soon as 
the delimiter FOR is encountered. If no 
labels are declared inside the for state- 
ment (or a nested for statement) , the entry 
is deleted at the close of the for state- 
ment. If, however, any labels are declared 
inside the for statement, a for statement 
closing entry is constructed at the close 
of the for statatement. Where a label is 
declared inside a series of nested for 
statements, the entry for the declared 
label is preceded by a heading entry for 
each enclosing for statement, and is fol- 
lowed by a single closing entry containing 



the Identifier Group Number of the 
ing block or procedure. 



emfcrac- 



The first four bytes of the for state- 
ment heading entry are used as a save area 
in which the contents of the pointer LIGP 
are stored before that pointer is reset to 
the address of the heading entry itself. 
The Identifier Group Number (I.G.No.) is 
copied from the counter IGN, which is 
incremented successively for every block, 
procedure, and for statement in the source 
module. 

The Identifier Group Number in the for 
statement closing entry is copied from the 
heading entry of the reentered scope. 



<LIGP> 



I 



-X 



"T T~ 

IX^B'I 
-X X- 



8 9 10 11 

T T 1 

| <I.G.No.> | | 
.J J J 



<LIGP> = <Address of preceding for statement or 
program block heading entry> 



Figure 17 . For statement heading entry 







T T T" 

|X'2B' |X"FF' | 
.i X X- 



8 9 

| <I,G.No.> 



10 11 



Figure 18. For statement closing entry 



Chapter 4: Scan I/II Phase 39 



PROCESSING OF THE IDENTIFIER TABLE 



The diagram in Figure 19 illustrates the 
processing of the Identifier Table in the 
Scan i/II Phase/ 

At entry to every block or procedure, a 
program block heading entry, containing a 
new Program Block Number, is constructed, 
(In the case of a procedure, the heading 
entry is preceded by an entry containing 
the procedure identifier.) Program block 
heading entries are constructed by the BEG1 
subroutine, on call from 
declaration- processing routines, and by the 
PROCID routine, entered from PROCEDUR. At 
entry to a for statement, a for statement 
heading entry is constructed by the FOR 
routine. At the close of a for statement, 
the heading entry may be deleted, or if any 
labels are declared in the for statement, a 



for statement closing entry is constructed 
following the entry for the label. At the 
close of a block or procedure, the set of 
entries representing identifiers declared 
or specified in the block or procedure are 
transferred to the SYSUT3 data set. The 
transfer is handled by the PBICKEND 
subroutine on call from the END or SEMCO 
routine. 

A pointer named LPBP at all tirres 
addresses the heading entry of the current 
(embracing) block or procedure. LPBP is 
used 

1. In copying the Program Block Number 
into the following identifier entries, 

2. In transferring the Program Block Num- 
ber of a reentered block to the Modi- 
fication Level 1 text following the 
operator Epsilon , which closes a tlock 



Source Module Block Structure 



(At initialization, \ 
\make heading for PBG - / 

I,) I — PB1 (block or procedure)* 
Declarations/Specifications 



PB2 (block) 

array declarations 



Type, 



PB3 (procedure - nc 

Specifications 

— (For statement) 



I PM4 (type-procedure - name P4) 
(Specifications 



1 /LPBP) 

o r~ (LIGPh 



J /LPBP 

*" IUGP 

AITL 



Contents of Identifier Table Work Area in Scan l/ll Phase at yarying Points in Source Module 
(Letters refer to tabelled positions in block diagram at left) 



/JLPBP\ 
^ UlGPf 




/ /LPBP 
— \LIGP 





e) 









ProcName" 1 




1 




P.B.I 


(LPBP) 
UIGPH 


2 


AITL 


P.B.2 
P3 




3 



(LPBP 

"(LIGP 

"— AITL 



/ (LPBP 
"ILIGP^ 



Proc. Name 



ForHdg. 



£.- LPBP 



SYSUT3* 
SYSUT3 




module, as specified by the PROCEDURE option, is a precompiled procedure, the heading entry for Program Block is followed by an entry containing the precompiled procedure name, and at phase termina- 
, Block 0, containing the procedure name, is transferred to SYSUT3. If, however, the source module is a program, the heading entry for Program Block .s .mmed.ately followed by a heading entry for Pro- 



If thi 

tion, Program Block 0, containing the procedure 

gram Block 1, and Program Block is no^ transferred to SYSUT3 at phase termination, 



Figure 19 • Diagram illustrating the processing of the Identifier Table in the Scan l/II Phas 
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or procedure 
Identification" ) , and 



(see 



" Scope SCOPE IDENTIFICATION 



In specifying the start of a record 
when the block of identifiers is 
transferred to the SYSUT3 data set at 
the close of a block or procedure. 



Pointer LIGP addresses the heading entry 
of the current block or procedure, or the 
heading entry of the current for statement. 
Pointer LIGP is used in transferring the 
Identifier Group Number of the reentered 
block, procedure, or for statement to the 
Modification Level 1 text following the 
operator Epsilon or Eta, which closes a 
block, a procedure, or a for statement (see 
" S cope I dent i f i cat ion " ) . 



Pointer AITL addresses the 
entry in the Identifier Table, 



next free 



When a program block heading entry is 
constructed at entry to a new block or 
procedure, the contents of LPBP and LIGP 
are saved in the newly constructed heading 
entry and both pointers are then reset to 
point to the new heading entry (the 
addresses saved in the heading entry both 
point to the preceding program block head- 
ing entry). If, subsequently, a for state- 
ment is encountered in the block or proce- 
dure, pointer LIGP is set to point to the 
corresponding for statement heading entry 
after its contents have been stored in the 
for statement heading entry. In the case 
of a series of nested for statements, this 
procedure is repeated for each for state- 
ment heading entry. At exit from each 
enclosing for statement, LIGP is reloaded 
with the address previously saved in the 
last constructed heading entry until, at 
reentry to the current (embracing) block or 
procedure, LIGP again points to the corres- 
ponding program block heading entry. 



When the close of the current block or 
procedure is reached, and the set of iden- 
tifiers declared or specified in the block 
or procedure have been transferred to the 
SYSUT3 data set, the current entry pointer 
AITL is reset to the beginning of the 
vacated area (by setting AITL=LPBP), in 
readiness for a further identifier entry or 
for a new block or procedure. Pointers 
LPBP and LIGP are then reloaded with the 
addresses previously saved in the heading 
entry of the closed block or procedure, so 
that they now address the heading entry of 
the reentered block or procedure. 



In the transformed source text 
(Modification Level 1) generated by the 
Scan I/II Phase, each scope is identified 
as to type, by distinguishing one-tyte 
operators which replace the opening and 
closing delimiters in the source module. 
The opening and closing operators for each 
type of scope are as fellows : 



Scope 

Block 

Procedure 

Type 
Procedure 

For 
Statement 

Compound 
Statement 



Opening 
Operator 

Beta (X'OD 1 ) 

Pi (X'OE') 

Phi (X'OF') 



Closing 
Operator 

Epsilon (X'2A f ) 

Epsilon (X f 2A f ) 

Epsilon (X'2A') 



For (X'18') Eta (X f 2B') 
Begin (X'OC) End (X f 2C) 



The first delimiter f BEGIN" which may 
open the body of a procedure is eliminated 
in the Modification Level 1 text. 



Every block and procedure is assigned a 
serial Program Block Number. The Program 
Block Number appears in all entries in the 
Identifier Table representing identifiers 
declared or specified in the block or 
procedure; it also appears in the Modifica- 
tion Level 1 text following the operator 
which opens a block or procedure. 



Every block, procedure, and for state- 
ment is assigned a serial Identifier Group 
Number. The Identifier Group Number 
appears in the heading entries in the 
Identifier Table; it also appears in the 
Modification Level 1 text following the 
opening operator of a block or for state- 
ment. The identifier Group Number is used, 
in the Scan III Phase, in detecting illegal 
branches. 



The Program Block Number and the Iden- 
tifier Group Number of the reentered scope 
also appear in the Modification Level 1 
text following the operator which closes 
blocks, for statements, and procedures. 
The following list indicates the Program 
Block Number and/or Identifier Group Number 
which follow the opening and closing opera- 
tors. 
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Scope 
Block 



Opening 



Close 



Beta<PBN><IGN> Epsilon 

<PBN>*<IGN>* 



Procedure Pi<IGN> 



Type- Phi<IGN> 
procedure 

For For<IGN> 
Statement 

Compound Begin 
Statement 



Epsilon 

<PBN>*<IGN>* 

Epsilon 

<PBN>*<IGN>* 

Eta<IGN>* 
End 



* PBN or IGN of the reentered scope 

The Program Block Number (PBN) occupies one 
byte, the Identifier Group Number (IGN) two 
bytes. 



SCOPE HANDLING STACK 



The action required at the close of 
every scope depends en whether the scope is 
a block, a procedure, a for statement, or a 
compound statement. Thus, at the close of 
a block or a procedure, the set of entries 
in the Identifier Table representing the 
identifiers declared or specified in the 
block or procedure, is transferred to the 
SYSUT3 data set, and the operator Epsilon 
is transferred to the Modification Level 1 
text. At the close of a for statement, a 
closing entry may be made in the Identifier 
Table and the operator Eta transferred. At 
the close of a compound statement, the 
operator End is simply transferred. 

Owing to the fact that the same delimi- 
ter ('BEGIN') opens both a block and com- 
pound statement, and owing also to the fact 
that procedures and for statements may be 
closed by the delimiters 'END' or a semico- 
lon, depending on their structure, a method 
of classifying each scope is required, so 
as to specify both the delimiter to be 
identified as the closing delimiter and the 



r 

| Stack Operator 
i 


- T n 

| Significance 
- + 


r t 


r t- 

| Name | 

1- +- 


Hex. 


Stacked by | Released by 
+ 


1 Begin | 


08 


| Designates a compound statement, closed by 
| 'END'. 


BEGIN |CCtfPEND 






I Beta | 


OU 
10 


| Designates a block, closed by 'END' 

| Designates a procedure, closed by 'END' 

| The procedure body consists of an unlabel led 

| block or compound statement. 


BEGIN | PBICKEND 


IProc* | 


BEGIN |PBLCKEND 






1 Proc 1 


0C 


| Designates a procedure, closed by a semicolon 
| or by 'END'. 'END' unconditionally closes the 
| embracing scope. The procedure body consists 
| of a procedure statement, a dummy statement 
| or a delimiter 'CODE' . 


PROCEDURE |PBLCKEND 


IProc* *1 


14 


j Designates a procedure, closed by a semicolon 
| or by 'END'. 'END' unconditionally closes the 
j embracing scope. The procedure body consists 
| of a labelled statement or block, or a single 
| assignment, goto, conditional or for statement. 


STATE | PBICKEND 




! FOR | PBLCKEND 


|For j 


18 


| Designates a for statement, closed by a semi- 
| colon or by "END'. A semicolon may close an 
| embracing procedure or for statement. 'END' un- 
| conditionally closes the embracing scope. 


FOR | FCREND 


I Alpha | 


00 


j Marks the bottom of the stack. ALPHA is stacked 
j only at phase initialization and released only 
| at phase termination 


Initiali- j Termination 
|zaticn | 



Figure 20. Scope Handling Stack operators 
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particular action to be taken at the close. 
The device used for the classification of 
scopes is the Scope Handling Stack. 

The Scope Handling Stack employs a set 
of six stack operators , each of which 
identifies a characteristic scope struc- 
ture. Whenever a delimiter is detected 
which marks the opening of a new scope, an 
appropriate operator is placed in the 
stack. If, subsequently, some feature is 
detected in the scope which indicates a 
change in structure, the operator original- 
ly placed in the stack is replaced by 
another operator which correctly reflects 
the structure of the scope. When the 
delimiter specified by the stack operator 
as the closing delimiter is encountered, 
the operator is released from the stack. 
In this way, all embracing scopes at every 
point in the source module are classified 
by the operators in the stack, the inner- 
most scope being classified by the last 
stack entry. 

The list in Figure 20 indicates the 
stack operators, their significance, and 
the routines which stack and release the 
operators . 

Stack operators are tested in the SEMCO, 
STATE, BEGIN, CODE, FOR, END, PBLCKEND, 
END MISS, and COMPEND2 routines. 

Begin is stacked when the delimiter 
"BEGIN" is encountered, provided the stack 
operator is not Proc . ( Proc indicates that 
the current scope is a procedure and hence 
that the delimiter "BEGIN" marks the open- 
ing of the procedure body; in this eventu- 
ality, Proc is replaced by Proc* ) . Until 
released, Begin remains unchanged in the 
stack unless a following declaration is 
encountered (see Beta ) . 

Beta replaces Begin if a declaration is 
encountered immediately after the delimiter 
"BEGIN". 

Proc is stacked whenever the delimiter 
'PROCEDURE' is encountered. Proc may be 
changed to Proc* or Proc** , depending on 
the structure of the procedure body (see 
Proc* and Proc**) . 



The stack operator is tested in the 
SEMCO and END routines for every semicolon 
and 'END' encountered. In principle, a 
semicolon closes a scope if the scope is a 
for statement or a procedure, the body of 
which consists of a single statement (other 
than a compound statement or block) or, 
alternatively, a labeled statement. No 
other scope may be closed by a semicolon. 
This principle is reflected in the logic of 
the SEMCO routine: the occurrence of a 
semicolon constitutes the close of a scope 
only if the stack operator is For , Proc - or 
Proc** (i.e., only if the scope has the 
characteristics indicated by these 
operators). For these three operators, the 
PBI£KEND or FOREND subroutine is activated. 
For all other operators, the semicolon does 
not constitute the closing delimiter, and 
the Semicolon operator is simply trans- 
ferred to the output string. A single 
semicolon may close a series of nested for 
statements or the procedure embracing a for 
statement. For this reason, a further test 
of the stack operator is made after the 
operator For has been released. 

The delimiter "END* in every case con- 
stitutes the close of the current scope. 
'END' must close all blocks and compound 
statements as well as procedures whose 
procedure body consists of an unlabeled 
block or compound statement. 'END' also 
closes for statements and procedures, oth- 
erwise closed by a semicolon, where the 
semicolon is omitted or supplanted by the 
immediately following 'END* of an enclosing 
scope. This reasoning is reflected in the 
logic of the END routine. The occurrence 
of "END" marks the close of the current 
scope for any stack operators except Alpha; 
if the stack operator is Beta , Proc , Proc* , 
or Proc** , the PBICKEND subroutine is acti- 
vated; if For , the FOREND subroutine; and 
if Begin , the COMPDEND routine is entered. 
A single 'END* may close a series of nested 
for statements, or the procedure embracing 
a for statement, or a procedure of type 
Proc or Proc* * . For this reason, the stack 
operator is tested anew, after the opera- 
tors Proc , Proc** , and For have been 
released. 



Proc* replaces Proc if the procedure 
body consists of an unlabeled block or 
compound statement (indicated by the delim- 
iter 'BEGIN' following the procedure 
heading) . 

Proc** replaces Proc if the procedure 
body consists of a labeled statement or a 
single statement other than a block or 
compound statement (indicated by a label 
preceding a colon, an assignment operator, 
or by the delimiters 'GOTO', 'IF', or 
•FOR'). 



MODIFICATION LEVEL 1 SOURCE TEXT 



The Scan I/I I Phase generates a trans- 
formed source text, called Modification 
Level 1, which is transferred to the SYSUT1 
data set and forms the primary input to the 
Scan III Phase. The principal changes 
reflected in the Modification Level I 
source text are as follows: 

1 . Initially, all characters are tran- 
slated from the external code (EBCDIC 
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or ISO) to an internal code (see 
Appendix I- a) . Over and above this 
initial conversion, the following 
additional changes are made. 

2. ALGOL delimiter words are replaced by 
one -byte symbols or eliminated, as 
follows : 

a. The delimiter words 'GOTO', 'IF', 
•THEN 1 , ■ELSE 1 ,, , FOR , f 'DO', 
'STEP', 'UNTIL' , 'WHILE' , 'EQUIV , 
'IMPL', 'OR' , 'AND' f 'NOT', 
' GREATER' , ' NOTGREATER' , ' LESS ' , 
' NOTLESS' , ' EQUAL' , ' NOTEQUAL' , 
and 'POWER' are replaced by unique 
one -byte symbols. See Appendix 
I-b. 

b. The delimiter 'BEGIN' is variously 
represented by two symbols Begin 
or Beta , or eliminated, depending 
on the scope opened by the delimi- 
ter. The delimiter 'END' is var- 
iously represented by the symbols 
End , Eta, or Epsilon , depending on 
the scope closed by the delimiter. 
See "Scope Identification" in this 
chapter. 

c. The declarators 'ARRAY' and 
'SWITCH' are replaced by unique 
one- byte symbols, but the declara- 
tor 'PROCEDURE' is variously rep- 
resented by the symbols Pi or Phi, 
according to whether the declara- 
tor is preceded by a type qualifi- 
er. The type declarators 'REAL', 
•INTEGER", and 'BOOLEAN' are elim- 
inated, as are the specif icators 
'STRING', 'LABEL', and 'VALUE', 
and the delimiters 'COMMENT' and 
'CODE'. See item 4 below. 

3. All other delimiters (including 
operators) are represented in the 
Modification Level 2 text by one-byte 
operators, or eliminated, as follows: 

a. Dual- character arithmetic, rela- 
tional, and logical operators are 
replaced by one- byte symbols. No 
change, beyond the initial trans- 
lation to internal code, is made 
in single -character operators. 

b. The separators comma, colon, deci- 
mal point, and := are uniquely 
represented by one-byte symbols. 
The semicolon is represented by 
the operator Semicolon , unless the 
semicolon follows a declaration 
(in which case it is replaced by 
the operator Delta ) or a comment 
(in which case it is eliminated). 
Semicolon or Delta is followed by 
a two- byte Semicolon Count. If a 
semicolon closes a declared proce- 



dure, the operator Delta is 
preceded by the symbol Epsilon ; if 
a semicolon closes a for state* 
ment, the operator Semicolon is 
preceded by the symbol Eta . 



A colon following a declared label 
is represented by the operator 
Label Colon . A lone period is 
eliminated, unless it is preceded 
or followed by a digit or +/- 
sign, in which case it is rep- 
resented resented as a Decimal 
Point . Apostrophes are eliminated 
except when followed by a digit or 
+/- sign (in which case the apos- 
trophe is replaced by the Scale 
Factor operator) . The operator 
Apostrophe appears in the Modi- 
fication Level 1 text solely in 
front of internal names represent- 
ing character strings and logical 
values. The parentheses ( and ) 
are transferred, except when they 
occur in parameter delimiters 
(which are replaced by the Comma ) . 
The brackets (/ and /) are 
replaced by the symbols [ and ] , 
respectively. The string quote 
signs '(' and ')' enclosing char- 
acter strings, are eliminated. 

4. Declarations are removed or trans- 
ferred in modified form, as indicated 
below. All valid declared or speci- 
fied identifiers are entered in the 
Identifier Table. 

a. Type declarations are eliminated 
in their entirety from the Modi- 
fication Level 1 text. 

b. Array and switch declarations are 
transferred in modified form. The 
declarators are represented by 
one- byte opera tors # the declared 
identifiers by a maximum of six 
characters in internal cede, 
together with switch components or 
array dimensions. 

c. Procedure declarations are trans- 
ferred in modified form. The dec- 
larator is represented by the sym- 
bol El <if tn e procedure is not 
type-qualified) or Phi (if the 
procedure is type-qualified) . 
Procedure identifiers and the for- 
mal parameters in parameter lists, 
each represented by a maximum of 
six characters, are transferred, 
but the value and specification 
parts of procedure headings are 
eliminated. The delimiter 'CODE' , 
representing the body of a cede 
procedure, is replaced by the sym- 
bol Gamma , followed by six charac- 
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ters of the code 
tif ier. 



procedure iden- 



Semicolons following all declara- 
tions , whether the declaration is 
represented in the Modification 
Level 1 text or not, are rep- 
resented by the operator Delta , 



The principal remaining changes rep- 
resented in the Modification Level 1 
text are as follows: 

a. Character strings are replaced by 
five- byte internal names referenc- 
ing the location where each string 
was stored in the Constant Pool. 
The internal name is preceded by 
the Apostrophe operator. 



b. 



c. 



d. 



The logical values 'TRUE' and 
'FALSE' are replaced by internal 
names referencing the values one 
and zero, respectively, in the 
Constant Pool. The internal name 
is preceded by the Apostrophe . 

Number constants are transferred 
unchanged, except for the transla- 
tion to internal code mentioned in 
item 1, and the replacement of the 
point and apostrophe (representing 
respectively, the decimal point 
and the scale factor) by the Deci- 
mal Point and Scale Factor opera- 
tors. 

Valid labels are transferred, but 
the colon following a declared 
label is replaced by the Label 
Colon . 

Parameter delimiters of the form 
) LETTERS: ( are replaced by the 
Comma . If a parameter delimiter 
extends across two output buffers, 
the symbol Rho is inserted at the 
beginning of the second buffer, 
indicating to the Scan III Phase 
that the letters at the end of the 
preceding record are to be 
replaced by the Comma . 

The record-end operator Zeta is 
inserted at the end of every out- 
put record, except the last, in 
which the character Omega marks 



the end of the Modification 
1 text. 



Level 



All operands (identifiers) contained in 
statements in the source module are trans- 
ferred unchanged to the Modification Level 
1 text, except for the initial translation 
to the internal code mentioned in item 1 
above. 



The table in Appendix I-b indicates the 
complete scope of coded characters appear- 
ing in the Modification Level 1 source 
text. 



GROUP TABLE (GPTAB) 



The Group Table is constructed in the 
Scan I/II Phase and transmitted to the Scan 
III Phase via the Common Work Area. £ 
three-byte entry is constructed for every 
block, procedure and for statement, indi- 
cating the Identifier Group Number 
(I.G.No.) of the enclosing block, proce- 
dure, or for statement, and, in the event 
the scope for which the entry is construct- 
ed is a for statement, indicating its 
serial For Statement Number incremented by 
one (F.S.No.+l). The Group Table is used 
in the Scan III Phase, in finding the 
Identifier Group Number of the enclosing 
scope, and in classifying the optimizabili- 
ty of for statements containing goto state- 
ments involving a branch out of the for 
statement. Entries are referenced by Iden- 
tifier Group Number. 

2 3 

Entry r T - t 

for a forI<I.G.No. of enclosing | <F. S. No. +1 | 

statement! scope> jof the fcrj 

| |statement>| 

i x J 

Entry for r T -, 

a block |<I.G.No. of enclosing) <A11 j 
or j sccpe> j zeros>| 
procedure ' J- J 

Figure 21. Group Table entries for a for 
statement and for a block or 
procedure 



SCOPE TABLE (SPTAB) 



The Scope Table is constructed in the 
Scan I/Ii Phase and transmitted to the Scan 
III Phase in main storage. A one-byte 
entry is constructed for every for state- 
ment, indicating the Program Block Number 
(P.B.No.) of the enclosing block or proce- 
dure. The Scope Table is used in the scan 
III Phase in determining whether all terms 
of array subscript expressions occurring in 
for statements are declared outside the for 
statement (i.e. net in a block enclosed by 
the for statement). 
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<P.B.No. of the block or procedure 
enclosing the for statements 



specifies, in general, that scanning for 
the appropriate character sequence is to 
continue. STARTBIT = 1 (on) signifies that 
the opening delimiter has been found. 



Figure 22. One- byte Scope Table entry 



PROGRAM BLOCK NUMBER TABLE (PBTAB1) 



The Program Block Number Table is con- 
structed in the Scan I/II Phase and trans- 
mitted to the Identifier Table Manipulation 
Phase in main storage. A one- byte entry is 
constructed for every block and procedure, 
indicating the Program Block Number of the 
enclosing block or procedure. The Program 
Block Number Table is used in connection 
with the print-out of the Identifier Table 
listing in the next phase , in which the 
Program Block Number of the block or proce- 
dure embracing each block and procedure is 
shown. 



<P.B.No. of the block or procedure 
enclosing the block or procedure> 



Figure 23. 



On e- by t e Pro gram 
Table entry 



Block Number 



The chart in Figure 24 shows the logical 
flow through the routines which process the 
opening delimiter, and the function of the 
STARTBIT. In the TESTLOOP routine the 
condition STARTBIT off has the effect of 
limiting the character search to an 
apostrophe (the first of two apostrophes 
enclosing a delimiter word), when an apes* 
trophe is found, control is passed to 
APOSTROF, which searches for the secend 
apostrophe and then branches to DELIMIT. 
In DELIMIT, the condition STARTBIT eff 
causes a branch to a special-purpose rou- 
tine, called STARTDEL, whose function is to 
activate FIRSTBEG, PROCEDUR, or TYPE, 
according to whether the delimiter is 
'BEGIN', 'PROCEDURE' or 'REAL', 'INTEGER', 
or 'BOOLEAN', respectively, and to return 
control to TESTLOOP in all other cases. If 
the source module is a program and the 
delimiter is 'BEGIN', STARTBIT is turned on 
by FIRSTBEG, thus signifying that the cor- 
rect opening delimiter has been found. If 
the source module is a precompiled proce- 
dure and the delimiter is 'PROCEDURE* or 
•<type>* 'PROCEDURE', STARTBIT is turned on 
by PROCEDUR. In all other cases, an error 
is stored in the Error Pool, and control 
returned to the TESTLOOP, which continues 
to scan for an apostrophe. 



PROCESSING OF OPENING SOURCE TEXT 



CLOSE OF SCAN I/II PHASE 



The source module as specified in the 
EXEC statement may be a program or a 
precompiled procedure. If the source 
module is a program, the operative 
(programming) text in the source module 
must be opened by the delimiter 'BEGIN'. 
If the source module is a precompiled 
procedure, the operative text in the source 
module must be opened by the delimiter 
'PROCEDURE' or by one of the delimiter 
sequences 'REAL' 'PROCEDURE', 'INTEGER' 
'PROCEDURE', or 'BOOLEAN' 'PROCEDURE'. 

Since the opening delimiter may be 
preceded by comment, provision is made in 
the Compiler to assure that, at the start, 
all text is disregarded until the correct 
delimiter or delimiter sequence is found. 
To facilitate the search for the correct 
opening delimiter, a number of special- 
purpose routines, as well as a switch named 
STARTBIT, are used. 

STARTBIT = (off) signifies that the 
opening delimiter has not been found and 



The EODADIN routine, which closes the 
Scan I/II Phase and which transfers control 
to the succeeding phase, may be entered 
under four main conditiens: 

1. At the logical close of the source 
module, when the logical terminal 
delimiter ('END' in most cases) has 
closed the outermost scope of the 
source module 

2. When an unexpected End of Data condi- 
tion occurs 

3. When a terminating syntactical error 
is detected in the source module 

4 . When a program interrupt or unrecover- 
able I/O error occurs. 

Charts A, B, C and D in Figure 25 show 
the flow of control through the various 
routines before EODADIN is finally entered, 
under the four conditiens mentioned. 
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TESTLOOP 




(COLON, POINT, SEMCO, etc. 



Operator 




Opening , 

delimiteVsTARTBIT 

found 



(Continue scanning 
for opening delimiter) 



\ delimiter 

r — "f , 

(NORMAL, TED, GIF, etc.) 



FIRSTBEG 





^.''Branch V 

^ accord, to j> 

*\delimitec 

-XL. 



— i 

(NORMAL, TED, GIF, etc.) 



<Any other delimiter> 



Record error 
No. 11 



J>. (Begin normal 
Qly processing) 



(Continue scanning 
for opening delimiter) 



(Begin normal 
processing) 



I 



(Continue scanning 
for opening delimiter) 



Figure 24. Chart showing the logical flow in the search for the opening delimiter 
and showing the function of the STARTBIT 



In Chart A, the logical close of the 
source raodule is detected by the PBLCKEM) 
subroutine (activated by the delimiter 
'END' or a semicolon closing a block or 
procedure) , when the stack operator Alpha 
shows that the bottom of the Scope Handling 
Stack has been reached, and that, accord- 



ingly, the outermost scope of the source 
module has been closed, under these condi- 
tions, PBLCKEND specifies EODADIN as the 
EOD routine; turns a switch named ENDEIT 
on, and transfers control to COMMEND-, whose 
function is to bypass any comment and to 
find the semicolon (or the first apostrophe 
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of 'END' or 'ELSE') which terminates such 
comment. If the terminating delimiter is a 
semicolon, the condition ENDBIT=1 causes 
control to be passed to READROUT, which 
scans the remaining source text for any 
characters other than a blank or the 
record- end operator Zeta . If any signifi- 
cant character is detected, an error is 
recorded in the Error Pool by ERR9 before 
control is passed to EODADIN; otherwise, 
READ ROUT continues reading the remaining 
source record (if any) until the Operating 
System transfers control to EODADIN at End 
of Data. The closing comment (if any) may 
be terminated (incorrectly) by 'END* or 
*ELsE'. When either of these delimiters 
has been identified by the DELIMIT and 
COMSPEC routines, control is passed to END 
or TED, in which the condition ENDBIT=1 
causes a branch to be taken to ERR9 before 
EODADIN is entered. 



In Chart B, the ENDMISS routine (which 
is specified at phase initialization as the 
EOD routine) is entered when the Operating 
System has identified an unexpected End of 
Data condition. ENDMISS activates the 
PBLCKEND, FOREND, and/or TERMBGN routines 
until all remaining entries of the Iden- 
tifier Table have been transferred to 
external storage and all stack operators 
have been released. Thereafter, an error 
message is stored in the Error Pool, and 
control is passed to EODADIN. 



In Chart c, the ERR 4 subroutine is 
called when a terminating error has been 
detected. ERR4 records the error in the 
Error Pool and then transfers control, 
through COMPFIN (which turns the TERR 
switch on -- see Appendix IV), to EODADIN. 
The condition TERR on causes EODADIN to 
transfer control to Diagnostic Output 
Module IEX 21, rather than to IEX20 
(Identifier Table Manipulation Phase) . 

In Chart D, EODADIN is entered directly 
from the Directory routine PlROUT in the 
event of a program interrupt or an unrecov- 
erable I/O error. PIROUT, whose address is 
specified in the SPIE macro instruction 
executed in the Initialization Phase, pass- 
es control to the routine whose address is 
stored at ERET. ERET is updated at ini- 
tialization of the Scan I/II Phase, to 
specify the entry point of EODADIN. 



SWITCHES 



switches in the HCOMPMOD Control Field 
(Appendix IV) . The significance of the 
various switches, all of which are located 
in the Common Work Area, is indicated in 
the list which follows. The first switch 
in the list (FBYTE) comprises a full byte, 
which may have three hexadecimal values. 
The remaining 19 switches are represented 
by the binary positions of three contiguous 
bytes named BITS1, BITS2, and BITS3 (Figure 
19), and may be either on (=1) or off (=0). 



FBYTE = X'00' (set =X' 00 f by APOSTROF) 

signifies that no particular set 
of delimiters is being sought, and 
specifies to DELIMIT that a normal 
branch is to be taken, according 
to the delimiter identified. 



= X'FO' (set =X'F0' by TYPE and 
IDCHECK) signifies that one of the 
delimiters "REAL", 'INTEGER*, or 
"BOOLEAN' is followed by a second 
apostrophe, indicating another 
delimiter (which may logically 
only be 'PROCEDURE' or 'ARRAY') 
and specifies to DELIMIT that 
TYPESPEC is to be entered. 



= X'FF' (set =X'FF' by COM) signifies 
that an end ccirment is followed by 
an apostrophe, indicating a delim- 
iter word (which may logically 
only be 'END 1 or 'ELSE'), and 
specifies to DELIMIT that COMSPEC 
is to be entered. 



BEGBIT: 



on (turned on by the BEGIN routine) 
identifies the fact that the delimi- 
ter 'BEGIN 1 has been encountered and 
specifies to all routines which 
process declarations, namely TYPE, 
PROCEDUR, SWITCH, and ARRAY, that 
the BEG1 subroutine is to be called 
before any declarations are proc- 
essed. Among other things, BEG1 
assigns a new Program Block Number 
and transmits the one- byte operator 
Beta to the output fcuffer. 



off (turned off by the BEG1 subroutine) 
specifies that the BEG1 has been 
called and that the subroutine is 
not to be react ived until the delim- 
iter 'BEGIN' opening a new block has 
been identified. 



The Scan I/II Phase employs some 20 
local switches, over and above the common 



US 



Chart A: End of Scan l/ll Phase - Normal Close of Source Module's Outermost Scope 
(END or SEMCO) 



PBLCKEND 



ENDBIT = 1 
EOD = 
EODADIN 



(Stack 
operator 
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r 



COMMEND 

Scan to next 
semicolon 
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— Apostrophe 
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APOSTROF 
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Semicolon 
(ENDBIT = 1) 



READROUT 
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TED 
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Chart B: End of Scan l/ll Phase - Unexpected End of Data 



Chart D: 



(OS at End of Data) 
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Figure 25* Exits from Scan I/II Phase 
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PROBIT : 

on (turned on by the PROCEDUR routine) 
signifies that a procedure heading 
has been entered and specifies to 
declaration- processing routines 
that, until turned off, all declara- 
tive delimiters such as 'INTEGER', 
are to be processed as type speci- 
fiers of formal parameters, as 
opposed to type declarators. 

off (turned off by the STATE, BEGIN, 
FOR, and CODE routines, when a 
statement, or the delimiter 'BEGIN', 
indicating the end of a procedure 
heading, is identified) specifies to 
declaration- processing routines 
that, until turned on, all declara- 
tive delimiters are to be processed 
as type declarators, not as speci- 
fiers . 

DELTABIT: 

on (turned on by declaration-processing 
routines) identifies the fact that a 
declaration has been detected and 
specifies to the SEMCO routine that 
the semicolon immediately following 
is to be replaced in the output 
string by the one-byte operator 
Delta . 

off : (turned off by the SEMCO routine) 
signifies that, unless subsequently 
turned on, the next semicolon is to 
be represented by the Semicolon 
operator. 

IDBIT: 

on (turned on by the PROCID routine) 
signifies that the next identifier 
is the procedure identifier and spe- 
cifies that a. program block heading 
entry is to be made in the Identifi- 
er Table to mark the beginning of a 
new identifier group. 

off (turned off by the PROCID routine) 
signifies that the procedure heading 
entry has been made in the Identifi- 
er Table and specifies that the 
formal parameter part of the proce- 
dure heading is being processed, 

ARBIT: 

on (turned on by the ARRAY routine) 
signifies that an array declaration 
has been identified and specifies to 
all routines that the character 
being processed forms part of an 
array list, 

off (turned off upon identification of a 
semicolon terminating an array dec- 



laration and upon entry to the 
SWITCH routine) signifies to all 
routines that, unless turned on, the 
character being processed forms part 
of a switch list. 

LIST BIT: 

on (turned on by the ARRAY routine on 
recognition of a comma following an 
array identifier) signifies that the 
next identifier is a continuation of 
a list of declared array identifiers 
with the same dimension list, and 
specifies that a Comma is to be 
transferred to the output buffer to 
separate the last identifier from 
the next. 

off (turned off in the ARRAY routine) 
has no significance. 

TERBIT: 

on (turned on by the ENDMISS routine 
after control has teen passed to it 
by the Operating System at End of 
Data) specifies to the PBICKEND sub- 
routine that control is to be 
returned to ENDMISS. 

off (turned off at phase initialization) 
has no significance. 



ENDBIT : 

on (turned on by the PBICKEND subrou- 
tine when a test shows that the 
Scope Handling Stack is empty, indi- 
cated by stack operator Alpha ) sig- 
nals the final exit from the outer- 
most scope of the source module, and 
specifies that any remaining text in 
the source module is to be disre- 
garded, and that if any text, other 
than comment, terminated by a semi- 
colon colon, is found, error No. 43 
is to be recorded. 

off (turned off at phase initialization) 
signifies that the delimiter which 
logically closes the source module 
has not yet been reached. 

COBIT : 

on (turned on in the COM routine) spe- 
cifies to the COM routine that the 
source string up to the next semico- 
lon is to be deleted. The charac- 
ters deleted may be a segment of the 
form : ' COMMENT ' <comment> ; .. 

off (turned off by the COMMEND routine) 
specifies that the source text up to 
the next semicolon or the delimiter 
•ELSE' or 'END 1 , is to be deleted. 
This deletes : 
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1. Any comment enclosed as follows: 
' END' <comment>' ELSE' /'END'/; or 

2. An erroneous statement or dec- 
laration (or portion thereof). 

STARTBIT : 

on (turned on by the FIRSTBEG and PRO- 
CEDUR routines) signifies that the 
opening delimiter of the source 
module has been found. 



lowing f END' , a branch is to be 
taken to the C0MPEND2 routine. The 
latter activates the FCREND or 
PBLCKEND subroutine, depending on 
whether the stack operator is For or 
Proc **. 

off (turned off by the END, C0MPEND2,, 
and TED routines) has no signifi- 
cance. 

E11BIT: 



off (turned off at phase termination) 
signifies that the opening delimiter 
of the source module has not been 
found. See "Processing of Opening 
Source Text" . 



VALBIT : 



on 



off 



(turned on by the VALUE routine) 
signifies to the SPEC routine that a 
value specification is being pro- 
cessed. 

(turned off in the IDCHECK routine) 
signifies that, unless turned on, a 
type specification (not a value 
specification) is being processed. 



PR0BIT: 

on (turned on by EODADIN in the event 
the source module is a precompiled 
procedure) specifies to PBLCKEND 
that control is to be returned to 
EODADIN, after Program Block in 
the Identifier Table has been trans- 
ferred to the SYSUT3 data set. 



off (turned off at phase 
has no significance. 

FRSTPUT: 



termination) 



on (turned on by ERR8) signifies that 
error No. 11 has been recorded, and 
that the error should not be record- 
ed again. 

off (turned off at phase initialization) 
signifies that error No. 11 has not 
previously been recorded. 

FMBIT : 

on (turned on by PROCID) signifies that 
the formal parameter list of a 
declared procedure is being pro- 
cessed and that the end of the list 
has not been reached; and specifies 
to IER that control is to be 
returned to PROCID after a defective 
parameter has been processed. 

off (turned off by PRCCID when the semi- 
colon following a formal parameter 
list is found) has no particular 
significance. 



NO FREE: 



on 



(turned on in CL0SE2) signifies that 
main storage for the private area 
has not been acquired, and specifies 
to EODADIN that a FREEMAIN macro 
instruction is not required. 



on (turned on by the GENERATE routine) 
signifies that the first PUT 
instruction has been issued, and 
that the address of an output buffer 
is available. 

off (turned off by the GENERATE routine) 
signifies that the first PUT 
instruction has not been issued. 

ENDELSEBIT: 

on (turned on by the END routine when, 
after the delimiter 'END' has closed 
a block or compound statement, a 
test shows that the stack operator 
i s For or Proc **) signifies that the 
embracing scope is a for statement 
or a procedure which may be closed 
by a semicolon, and specifies to the 
COM routine that, if a semicolon is 
found to terminate the comment fol- 



off 



(turned off at initialization) 
no particular significance. 



on 



off 



has 



FRSITB: 



(turned on in 
first Identifier 
been output on 
that a CHECK 



PBLCKEND after the 
Table record has 
SYSUT3) signifies 
macro instr ucti on 



should be issued before each 
quent output operation. 



subse- 



(turned off at initialization) sig- 
nifies that no previous output has 
taken place on SYSUT3 and that, 
accordingly, a CHECK macro instruc- 
tion is not required before the next 
output operation. 



PROCESD : 



on 



(turned on in the PROCEDUR routine) 
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off 



signifies that the source module is 
a precompiled procedure and speci- 
fies to the PR0CID routine that an 
ESD record is to be made for the 
procedure name. 



(turned off by the PR0CID routine) 
signifies that the source module is 
a program, or that the ESD record 
for a precompiled procedure has been 
generated. 



CONSTITUENT ROUTINES OF SCAN I/II PHASE 



The principal constituent routines of 
the Scan I/II Phase are described below. 
The page on which each routine is described 
and the flowchart in the Flowchart Section 
in which the general logic of the routine 
is set forth may be found with the aid of 
the Index in Appendix XI . 

The position of the major routines in 
the overall logical organization of the 
phase may be determined by reference to 
Flowcharts Oil and 012 in the Flowchart 
Section. 



POOLLOC 
AKOPOOL 



SPCLT 



ATOPSTAK 
AITABBUFF 



ADDARI + 4 



AITAB 

LIGP 

LPBP 



ELI 



(Space reserved for constants - 15, 
stored in Constant Pool at phase ter- 
mination - displacement 64) 

Constant Pool 

(4096) 



Scope Handling Stack 
0000) 



Identifier Table Buffer 
(2000) 



Source Buffer No. 2 * 



(Heading entry for P.B.O constructed) 
Identifier Table (ITAB )* 



MGES1TL = ITAB length 



* Area size specified by Area Size Table in Common Work Area. See Appendix VIII for the 
variation in area sizes as a function of the SIZE option. 



PHASE INITIALIZATION 



The Initialization routine gets main 
storage for the private work area shown in 
Figure 26; initializes pointers; specifies 
EOD and program interrupt-I/O error rou- 
tines; assembles headlines for the source 
module listing; and activates the Change 
Input Buffer subroutine (CIB). The routine 
exits to TESTLOOP. 



The entry point of the routine activated 
in the event of a program interrupt or an 
I/O error ( both of which terminate 
compilation) is stored in ERET f the loca- 
tion referenced by the Program interrupt 
routine (PIROUT) and the I/O Error routines 
(SYNAD and SYNPR) in the Directory. The 
entry point CLOSE2, specified at entry is 
changed, after the GETMAIN instruction has 
been issued, to EODADIN. Both CLOSE2 and 
EODADIN close data sets and transfer con- 
trol to Diagnostic Output Module IEX21. 
EODADIN in addition releases main storage. 



Figure 26 . Private Area acguired by the 
Scan I/II Phase, showing poin- 
ters initialized 



The entry, ENDMISS, in the event of an 
End of Data (EOD) condition on the SYSIN 
data set is stored at EODIN, the location 
referenced by the End cf Data Exit routine 
in the Directory. 

The GETMAIN instruction for the private 
work area is executed after the total area 
required has been computed. The area sizes 
needed for the Identifier Table and Source 
Buffer No. 2, which depend on the capacity 
of the system used, are obtained from the 
Area Size Table entries named ITAB10S and 
SRCE1S, respectively. The areas allocated 
to the Constant Pool, Stack, and ITAB 
buffer are fixed at 4096, 1000 and 2000 
bytes, respectively, for all systems. The 
various pointers initialized are shown in 
Figure 26* A fuller explanation of the 
pointers LPBP and LIGP is given under the 
heading "Processing of the Identifier 
Table". 
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(Source Buffer No. 1) 



| 4 

r + i 



8 t 



ADDARI |A(Buff l)|A(Buff 2) | EAP (Reg. 3) 

L L X T J 

I r— 
l l ^>| 

r 1 «—■ 

DISP j or 4 J 

L J 



(Source Buffer No. 2) 



APE 



Figure 27. Source text buffers and pointers 



Source Buffer No. 2 is the second of 
two buffers used for output of the modified 
source text generated by the phase. Buffer 
No. 1 is set up in the Common Area by the 
Initialization Phase, its beginning address 
being stored at SRCE1ADD and its end 
address at SRCE1END. The present initiali- 
zation routine stores the addresses of both 
buffers in an eight-byte field named ADDAR- 
I, and then initializes the pointers EAP 
(Register 3) and APE for Source Buffer No. 
1 (see Figure 27). EAP and APE are updated 
whenever buffers are exchanged by the 
Change Output Buffer subroutine (COB). The 
particular address loaded in EAP from 
ADDARI is determined with the aid of a 
control byte named DISP (reset from to 4 
and vice versa just before EAP is updated) , 
which specifies the displacement (0 or 4) 
from ADDARI. 

A heading entry (Figure 28) for Program 
Block (an arbitrarily defined block 
enclosing the source module) is constructed 
in the Identifier Table. The current entry 
position AITL is set to point to the next 
free entry in the Identifier Table. 



11 



T 1 


— T T 


1 FF 1 


1 2B | 


X X 


— X X 



Figure 28, 



Heading Entry constructed at 
initialization in Identifier 
Table for Program Block 



The following dispositions are made in 
the Common Work Area, in which the address- 
es of the various tables and other fields 
are defined by a dummy control section in 
IEX11. The address of an 88-byte dummy 
print area named SAVEPRNT is stored at 
APRINTAR. If the SOURCE option is not 
specified, the Change Input Buffer subrou- 
tine (CIB) moves each source record to 
SAVEPRNT, in order that strings may be 
stored in the Constant Pool in external 
code. If, however, SOURCE is specified, 
indicating that a listing of the source 
module is to be printed, source records are 



moved instead to a print buffer specified 
by the PRINT routine in the Directory. In 
this case, the address in APRINTAR will be 
replaced by the address cf the print buf- 
fer. 

In preparation for the print-out of a 
source module listing, the headlines 
("SOURCE PROGRAM" for the first line and 
"SC SOURCE STATEMENT" for the second line) 
are moved to a field named PAGEHEAD in the 
Common Work Area from the locations HDING1 
and HDING2. The headlines are printed out 
by the Directory PRINT subroutine, on call 
from CIB, if the SOURCE option is speci- 
fied. 



The 

BITS1 

r — i 

J J BEGBIT 

I— I 

1| |PROBIT 



BITS2 

r — i 

J J ENBIT 

1 j | COBIT 



2 | |DELTABIT 2| | ST ARTE IT 

3 j JIDBIT 3 j JVALBIT 

U\ |ARBIT 4 1 JPBOBIT 

5 1 |LISTBIT 5 | | Not used 

I— * Y~i 

6 | | Not used 6| JFRSTPUT 

HH M 

7 j JTERBIT 7 | JENDELSEBIT 7 
L J L J 
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0| IE11BIT 

-H 

| FMBIT 

— I 

j NOFREE 

H 

JFRSITB 

-H 

JPROCESD 

-H 

| Not used 

-H 

] Not used 

-H 
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Figure 29. 



Switches 
Phase 



used in Scan I/II 



See "Switches" in this chapter. 

The Program Block Counter (PBC) , Iden- 
tifier Group Counter (IGC), Semicolon Coun- 
ter (SC), For Statement Counter (FSN) , and 
Output Record Counter (ONC) are initialized 
at 0, and the first entries (0) for Program 
Block are made in the Program Block 
Number Table (PETAB1) , Group Table (GPTAB) , 
and Scope Table (SPTAB) . The control 
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switches used in the phase, which are 
contained in three bytes named BITS1, 
BITS2, and BITS3, are zero-set. The 
switches in each byte are shown in Figure 
29. Their function and significance is 
explained elsewhere in this chapter under 
"Switches". 

OPIN and LAPIN are the names of two 
special-purpose output buffer pointers. 
OPIN is always adjusted to point to the 
character that may precede a label or begin 
a parameter delimiter. These include 
Begin , Beta , Do , Else , Delta , Semicolon , 
and ) . At OPIN + 4 is noted the number of 
the output record (0NC) ,, in which the 
character pointed at by OPIN is to be 
found. LAPIN points to the first byte 
following that pointed at by OPIN, where 
the letter string or label may begin. OPIN 
and LAPIN may be separated by two or more 
characters. OPIN and LAPIN are used when 
declared labels are entered in the Iden- 
tifier Table or when a letter string is 
replaced by a Comma. 



Peta <PBNXIGN> 



A 



OPIN 



LAPIN 



; <SC> 
A A 

I I 

I I 

OPIN LAPIN 



Before exit to the TESTLOOP routine, the 
Change Input Buffer subroutine (CIB) is 
called. CIB activates the PRINT subroutine 
in the Directory (if SOURCE is specified), 
which/ prints out the headlines assembled at 
PAGEHEAD and returns with the address of 
the print buffer. CIB then gets the first 
record in the Work Area (WA) , moves it to 
the print buffer (or a dummy print area), 
translates the record to internal code, and 
returns control to Initialization, after 
having loaded the address of WA in REGI 
(Register 1). In the TESTLOOP routine, 
which is now entered, as well as in all 
routines which scan or inspect characters 
in the translated source text, REGI func- 
tions as the Work Area pointer. 



MAIN LOOP (TESTLOOP) 



TESTLOOP scans the translated source 
text in the Work Area, by means of a 
Translate and Test instruction, for any one 
of 14 characters assigned a nonzero func- 
tion byte in Translation Table TESTTABL; 
moves the scanned text to the output buf- 
fer; and branches to the routine whose 
address is specified in an entry of Branch 
Address Table BPRTAB. The displacement of 
the entry in BPRTAB is given by the value 
of the character's function byte. 



Hexadecimal 








Displacement 


Content 


of 


Entry 


00-03 


All zeros 




04 


Address 


of 


TRANS OP 


08 


Address 


of 


TRANSOP 


OC 


Address 


of 


TRANS OP 


10 


Address 


of 


TRANSOP 


14 


Address 


of 


TRANSOP 


18 


Address 


of 


TRANSOP 


1C 


Address 


of 


COLON 


20 


Address 


of 


SEMCO 


24 


Address 


of 


RIGHTPAR 


28 


Address 


of 


BLANK 


2C 


Address 


of 


ERR1 


30 


Address 


of 


POINT 


34 


Address 


of 


APOSTROF 


38 


Address 


of 


CIB 


3C 


Address 


of 


ASSIGN 


40 


Address 


of 


DECPOINT 


44 


Address 


of 


ERR5 


48 


Address 


of 


BLKAPOS 


4C 


Address 


of 


NPAFTAPO 


50 


Address 


of 


SCALE 


54 


Address 


of 


COLONLIST 


58 


Address 


of 


SEMCLST 


5C 


Address 


of 


DELIMIT 


60 


Address 


of 


ZETAAPO 


64 


Address 


of 


EROUT 


68 


Address 


of 


LEFTPARL 


6C 


Address 


of 


RIGHTPARL 


70 


Address 


of 


PZETA 


74 


Address 


of 


ASSIGN 


78 


Address 


of 


DECPOINT 


7C 


Address 


of. 


ERR5A 


80 


Address 


of 


COMMALST 


84 


Address 


of 


POINLST 


88 


Address 


of 


SLASHLST 


8C 


Address 


of 


QUOTE 


90 


Address 


of 


SEMC60 


Figure 30. Branch 


Address Table BPRTAB 



The function byte assigned by TESTTABL 
to each character, and the routines entered 
from TESTLOOP, are as follows: 





Function 


Routine 


Character 


Byte 


Entered 


Blank 


28 


BLANK 


* 


04 


IRAN SOP 


/ 


08 


tt 


( 


OC 


n 


> 


10 


tt 


< 


14 


» 


Not 


18 


ti 


) 


24 


RIGHTPAR 


Point 


30 


POINT 


Apostrophe 


34 


APOSTROF 


Colon 


1C 


COLON 


Semicolon 


90 


SFWC60 


Invalid Character 


2C 


ERR1 


Zeta 


38 


CIB 


<A11 other 


00 


(No branch. 


characters> 




scanning 
continues) 
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The branching action just described is 
dependent on the condition that the correct 
delimiter word opening the source module 
has been found (STARBIT=1) . See 
"Processing of Opening Source Text". 

The transfer of scanned source text from 
the Work Area to the output buffer is 
handled by MSBLOOP (Move Scanned Bytes 
Loop) . 

Branch Address Table BPRTAB is ref- 
erenced by most routines which determine a 
branch on the basis of a Translate and Test 
instruction. 



Asterisk 

Slash 

Left 
Parenthesis 

Less than 

Greater than 

Not 



Resultant Current Expected 
Operator Operator Operator 
(RO) (CO) (EO) 



r t 

Power 



< 
> 



* 
/ 

( 



< 

> 



) 

/ 



-H 



BLANK (BLANK) 



Figure 31. KEYTAB keys used in TRANSCP 
routine 



BLANK steps the Work Area pointer REGI 
to the next nonblank character and returns 
control to the calling routine (TESTLOOP or 
LIST) . A scan, using Translation Table 
BTABLE, is initiated if a string of blanks 
is indicated by a second blank following 
the first. STABLE assigns function byte FF 
to all characters except a blank, which is 
assigned a zero function byte. 



RIGHTPAR 



RIGHTPAR transers the ) operator to the 
output buffer, and sets the pointers CPIN 
and LAPIN (see "Phase Initialization"). 



TEST AND TRANSFER OPERATOR (TRANSOP) 



TRANSOP determines if any of the charac- 
ters *, /, (, <, >, or Not is associated 
with an immediately following character, 
and if so, transfers a one-byte operator 
representing the two characters in combina- 
tion, otherwise, the character is trans- 
ferred unchanged. 

The determination is made by comparing 
the succeeding character with a key, con- 
tained in a table named KEYTAB (Figure 31). 
The key used is specified by the function 
byte assigned the particular character in 
the TESTLOOP or LIST routines, from which 
TRANSOP is entered. 

Current Operator (CO) represents the 
character in the source text which acti- 
vates TRANSOP. The Expected Operator (EO) 
is the character with which the succeeding 
character is compared. The Resultant Oper- 
ator (RO) represents the logical result of 
CO in combination with EO. RO is trans- 
ferred to the output buffer, if the suc- 
ceeding character agrees with EO. CO is 
transferred if the succeeding character is 
any character other than EO (excepting 
blank, which is disregarded, and the 
record-end operator Zeta , which causes the 
CIB subroutine to be called) . 



POINT 



POINT inspects the character which fol- 
lows a point, using a Translate and Test 
instruction, and branches to one of six 
routines according to the value of the 
function byte assigned the character in 
Translation Table PTTABLE. The address of 
the routine entered is obtained from an 
entry in Branch Address Table (BPRTAE) , 
whose displacement equals the value of the 
assigned function byte. 

The function byte assigned by PTTABLE to 
each character, and the routines entered 
from POINT, are as follows: 





Function 


Routine 


Character 


Byte 




Entered 


<Digit 0-9> 


40 




DECPOINT 


Equal Sign 


3C 




ASSIGN 


Point 


1C 




COLON 


Comma 


20 




SEMCO 


<Letter or 


44 




ERR5 


Delimiter> 








Zeta 


38 




CIB 


<A11 other 


00 




(No branch, 


characters> 






scanning 
continues) 
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DECIMAL POINT (DECPOINT) 



DECPOINT transfers the Decimal Point 
operator. 



ASSIGNMENT (ASSIGN) 



ASSIGN transfers the Assign operator and 
passes control to STATE. 



STATEMENT (STATE) 



STATE is entered when a statement, iden- 
tified by an assignment operator or a 
label, or by the delimiters 'GOTO', 'FOR' , 
or 'IF 1 , has been recognized. It serves to 
determine if the statement constitutes the 
body of a procedure, and if so, to stack 
the operator Proc in place of Proc** (see 
"Scope Handling Stack"). 



APOSTROPHE ( APOSTROF) 



APOSTROF has the main function of deter- 
mining if an apostrophe opens a delimiter 
or if it represents a scale factor. APOS- 
TROF inspects the characters following the 
apostrophe by means of a Translate and Test 
instruction, and branches to one of six 
routines, determined by the function byte 
assigned the particular character in Trans- 
lation Table ATABLE. The branch is made by 
reference to Branch Address Table (BPRTAB) . 

The function byte assigned to each char- 
acter in ATABLE, and the routines entered 
from APOSTROF, are as follows: 





Function 


Routine 


Character 


Byte 


Entered 


<Digit 0-9 or 


50 


SCALE 


+/- sign> 






Blank 


48 


BLKAPOS 


Zeta 


60 


ZETAAPO 


Invalid Character 


4C 


NPAFTAPO 


Apostrophe 


5C 


DELIMIT 


Not, Or , And, Comma, ) 


64 


EROUT 


or Point 






<Any letter>. 


00 


(No branch, 


/ or ( 




s canning 
continues) 



bypassed. The closing apostrophe, however, 
would terminate the scanning operation, and 
a branch would be taken to the Delimiter 
routine (DELIMIT). 

The particular action taken by the 
SCALE, NDAFAPO, DELIMIT, and EROUT routines 
is governed by a control byte called FBYTE, 
which may have one of three hexadecimal 
values: 00, F0, or FF. FBYTE is set to 
X'00 f in APOSTROF; to X'FO* in TYPE and 
SPEC; and to X'FF' in COM. The function of 
FBYTE is to specify whether or not a 
specific choice of delimiter words is being 
sought in the source text. Thus, for 
example, when the TYPE routine determines 
that an apostrophe immediately follows one 
of the delimiters 'REAL', 'INTEGER', or 
"BOOLEAN', indicating a second delimiter in 
a sequence '<type>' 'PROCEDURE' or '<type>' 
•ARRAY', it sets FBYTE to X'FO' in order tc 
specify that the following delimiter must 
be 'PROCEDURE' or 'ARRAY', and that an 
error is to be recorded if any ether 
delimiter is found. TYPE then passes con- 
trol to the APOSTROF routine (by way of the 
ENTRAPR entry point), which then enters 
DELIMIT or EROUT. FBYTE='F0' causes DELIM- 
IT or EROUT to pass control to TYPESPEC, 
which then determines if either of the 
acceptable delimiters follows. When the 
COM routine encounters an apostrophe at the 
end of a sequence of comment following 
'END', indicating that a delimiter follows, 
it sets FBYTE to X' FF' tc specify that any 
delimiter except "END" or "ELSE" is to be 

passes control to the 
by way of the ENTRAPR 
the DELIMIT and ERCUT 
routines which are subsequently entered, 
FBYTE=X'FF' causes a branch to COMSPEC, 
which then determines if the following 
delimiter is 'END' or 'ELSE'. FBYTE=X"00" 
signifies generally that no specific choice 
of delimiter words is being sought. FBYTE 
is set to X' 0' by APOSTROF on entry from 
TESTLOOP. When a specific choice of delim- 
iters is sought, as in the conditions 
described above, the APOSTROF routine is 
entered (from TYPE, SPEC, and COM) by way of 
ENTRAPR, in which case FBYTE will have teen 
previously set to X'FO' or X'FF f . 



SCALE FACTOR (SCALE) 



SCALE transfers the Scale Factor opera- 
tor. 



disregarded, and 
APOSTROF routine 
entry point. In 



As indicated above, letters are assigned 
zero function bytes and are accordingly 
by- passed in the scan. Thus, for example, 
the letters separating the apostrophes in 
the delimiter word 'BEGIN' would be 



BLANK AFTER APOSTROPHE (BLKAPOS) 



The source text is scanned, with the aid 
of Translation Table BTABLE, to the next 
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non-blank character, after which the first 
apostrophe and any following characters are 
right- shifted by the number of blanks 
scanned. 



ZETA AFTER APOSTROPHE (ZETAAPO) 



The first apostrophe and any following 
characters are moved to a field named 
WABEFOR in front of the Work Area, after 
which a new source record is read in by the 
CIB subroutine. 



INVALID CHARACTER AFTER APOSTROPHE 
(NPAFTAPO) 



An error (No.l) is recorded, after which 
BLKAPOS is activated, which moves the apos- 
trophe and following characters right, 
deleting the invalid character. 



COLON (COLON) 



The COLON routine leads into 
ASSIGN ,LETDEL, or LABEL according to wheth- 
er the colon in the source text precedes an 
equal sign, a left parenthesis, or any 
other character, identifying respectively, 
the assignment operator :=, a parameter 
delimiter of the form ) LETTERS :(, or a 
label, e.g., LABEL: xyz. 

The character string representing a 
label or a letter string is processed in 
the output buffer (where it will have been 
transferred by the TESTLOOP routine before 
control was passed to COLON on detection of 
a colon) , rather than in the Work Area. 
The start of the character string is found 
with the aid of the pointers OPIN and LAPIN 
(see "Phase Initialization"). OPIN always 
points to the last transferred operator 
which may precede a label or letter string. 
LAPIN points to the first byte where a 
label or letter string may begin (usually 
the next byte to the right of that pointed 
at by OPIN) . Individual characters of a 
label or parameter delimiter in the output 
buffer are addressed with the aid of poin- 
ter PIN. 



buffer length and compilation is 
terminated) , the label is checked for vali- 
dity. If all characters of the label are 
valid, up to six characters of the label 
are copied into an entry for the label in 
the Identifier Table. If any one character 
is invalid. Error No. 8 or 7 is recorded in 
the Error Pool, and the Identifier Table 
entry is erased, by a branch to ITABCLE^R. 



LETTER DELIMITER (LETDEL) 



Beginning with the character pointed at 
by pointer LAPIN, the character string in 
the output buffer is checked. If all of 
the characters are letters, in which case 
the character string qualifies as a letter 
delimiter, and if the letter delimiter 
begins in the current output buffer, a 
Comma is transferred to the output buffer, 
replacing the right parenthesis, and the 
letter delimiter is deleted. If the letter 
delimiter began in the preceding output 
buffer, the operator Rho is transferred to 
the first byte of the current output buf- 
fer, and that part of the letter delimiter 
in the current buffer is deleted. Rho 
serves in the Scan III Phase to signal that 
the immediately preceding characters up to, 
and including, the last right parenthesis 
are to be deleted and replaced by a Comma . 



SEMICOLON (SEMCO AND SEMC60) 



SEMCO: Depending on whether the semico- 
lon in the source text terminates a state- 
ment or a declaration (indicated by 
DELTABIT=1), a Semicolon or Delta symbol is 
transferred, followed by the current Semi- 
colon Count. If the semicolon terminates a 
statement (DELTABIT=0) , the operator in the 
Scope Handling Stack is tested to determine 
if the semicolon closes a single-statement 
procedure of a for statement. If so, the 
PBLCKEND or FOREND subroutine is called. 

SEMC60, entered on detection of the 
single-character semicolon, turns on the 
SET60 switch in the HCOMPMOD Control Field 
(Appendix IV) , before entering SEMCO. 



ERROR RECORDING ROUTINES 



LABEL (LABEL) 



Provided the label does not begin in the 
output buffer preceding the last one (in 
which case the label exceeds the output 



The error recording routines, named 
below, administer the storage of error 
patterns in the Error Pool. They are 
called by the various routines of the Scan 
I/II Phase on detection of syntactical 
errors in the source text. A majority are 
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subroutines which return control to the 
calling routine after the error pattern has 
been stored. Certain of the routines exit 
to the TESTLOOP routine, while those rou- 
tines which administer the storage of ter- 
minating error patterns pass control (via 
COMPFIN) to EODADIN, which transfers con- 
trol to diagnostic output module IEX21. 
The content of the error pattern is des- 
cribed in Chapter 9. 

The typical call to an error recording 
subroutine has the form: 

BAL REGB r <Error Routine Name> 
DC X^O^IC' 

On entry to the called subroutine, REGB 
contains the address of the immediately 
following parameter list, the first byte of 
which specifies the error pattern length 
while the second byte specifies the error 
number . 

The typical return to the calling rou- 
tine from the called subroutine is of the 
form: 



Pool,, except in the case of Error No. 
0. 



ERROR2: Calculates the length of an iden- 
tifier or delimiter addressed by a 
pointer named IN and stores the length 
in the parameter list of the calling 
routine. 



ERR2D: Activates ERROR2 (which computes an 
identifier's or delimiter's length and 
stores the length in a parameter 
list), and ERROR1 (which stores the 
length, error number and semicolon 
count in an error pattern) ; moves the 
identifier or delimiter addressed by 
IN to the Error Pool entry addressed 
by REGY; and returns control to the 
calling routine. 

ERR2: Sets the pointer IN to the last 
entry for an identifier in the Iden- 
tifier Table,, then branches to ERR2D 
(which stores the error pattern with 
the aid of ERROR2 and ERROR1). 



BC 15, 2 (O, REGB) 

This specifies a return to the instruc- 
tion following the parameter list in the 
calling routine. 



ERR2B: Sets the pointer IN to an entry in 
the identifier Table for a procedure 
identifier, then branches to ERR 2D 
(which stores the error pattern with 
the aid of ERROR2 and ERROR1) . 



The error recording routines may be 
divided into service routines and call 
routines. Service routines are those which 
actually store message patterns in the 
Error Pool, or which handle the necessary 
processing preliminary to the storage of 
error patterns. Call routines are those 
which receive calls for the recording of an 
error and which, in turn, issue calls to 
the appropriate service routines. Call 
routines may also move source text into an 
error pattern at an address specified by a 
service routine- 



ERR2E: Sets the pointer IN to a location 
called IDBUCKET (see Type Specifi- 
cation routine IDCHECK) containing a 
procedure parameter, then branches to 
ERR2D (which stores the error pattern 
with the aid of ERROR2 and ERROR1) . 

ERR2C: Moves six characters of an erro- 
neous delimiter to a location named 
BUCKET, sets pointer IN to that loca- 
tion, and branches to ERR2D (which 
stores the error pattern with the aid 
of ERROR2 and ERROR1). 



The service routines are the following: 

ERROR1: Stores the first four bytes of 
every Error Pool entry, containing the 
entry length, error number, and semi- 
colon count. The entry length and 
error number are fetched from the 
parameter list specified by the call- 
ing routine. ERROR1 also updates the 
Error Pool pointer (NEXTERR) in readi- 
ness for the next entry, making allo- 
wance for any source text to be subse- 
quently inserted. The address of the 
current Error Pool entry is transmit- 
ted in REGY. In the event of an Error 
Pool overflow, a branch is made to 
ERRO. 

ERROR1 is activated every time an 
error pattern is stored in the Error 



ERR7: Activates ERROR1 (which stores the 
length error number and semicolon 
count in an error pattern). ERR7 is 
called where the error pattern con- 
tains no source text. 

ERRO : Records a terminating error indicat- 
ing an overflow of the Error Pool, and 
transfers control tc the terminating 
routine EODADIN (via COMPFIN, which 
turns the TERR switch on) . 

The call routines are described below. 
Certain of the routines handle specific 
errors and, in calling the service routine, 
specify a parameter list for the particular 
error. Other routines handle more than cne 
error, the parameter list being specified 
by the calling routine in which the error 
is detected. 
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ERR1: Calls ERR7, specifying a parameter 
list for Error No.l. 

ERR3: Calls ERR0R1, specifying a parameter 
list for Error No. 3, then moves the 
characters previously stored at BUCKET 
by the Colon routine into the error 
pattern set up by ERR0R1. 

ERRU: Calls ERR0R1 and passes control (via 
COMPFIN) to the EODADIN routine, ERR4 
is called by numerous routines on 
detection of any terminating error. 
(See also "Close of Scan I/II Phase"). 

ERR5A: Calls ERR0R1, specifying a paramet- 
er list for Error No. 35. 

ERR5: Calls ERROR1, specifying a parameter 
list for Error no. 2. Exits to TES- 
TL00P or LIST. 

ERR6 : Depending on two switches (which may 
cause a branch to other routines), 
calls ERR0R1 and moves six characters 
of a delimiter from the Work Area into 
the error pattern set up by ERR0R1. 

ERR8 : Depending on a switch,, calls ERR0R1 , 
specifying a parameter list for Error 
No. 11. Exits to TESTLOOP or LIST. 

ERR18: Calls ERROR1, specifying a paramet- 
er list for Error No. 18. 

ERR9: Calls ERR7, then transfers control 
to EODADIN (see also "Close of Scan 
I/II Phase"). 

ERROR10: Calls ERR2B f specifying a param- 
eter list for Error No. 10 (which 
indicates that certain parameters of a 
procedure have not been specified) . 
On return, ERROR10 inserts an all- 
purpose internal name in the 
Identifier Table entries representing 
the unspecified parameters. 

ERR21: Stores the length of a declarative 
delimiter in a parameter list for 
Error No. 21; calls ERROR1, specifying 
the parameter list; and then moves the 
delimiter from the Delimiter Table 
into the error pattern set up by 
ERROR1 . 



CHANGE INPUT BUFFER (CIB) 



CIB gets an 80 -character record of the 
source text from the SYS IN data set into 
the Work Area (WA) ; copies the record into 
a print buffer or a dummy print area; and 
translates the record in the Work Area to 
the internal code (Appendix I- a) . If the 
SOURCE option is specified, a branch is 



made to the PRINT subroutine in the Direc- 
tory, which prints out the record previous- 
ly moved to a print buffer, and transmits 
the address of a new print buffer, to which 
the newly obtained source record will be 
moved. CIB is called by all routines which 
scan the source text, on recognition of the 
recorded operator Zeta . The latter is 

of 



inserted by CIB at the end 
slated record in the Work Area. 



each tran- 



In the event the source module is in ISO 
code, each record is first translated to 
EBCDIC code by searching for the characters 
(, ), =, + and the apostrophe (the only 
characters whose representation differs 
between the EBCDIC and ISC codes) and 
replacing these characters by their EBCDIC 
combinations. This conversion simplifies 
the subseguent translation to internal code 
and facilitates printing the source text on 
the printer, in which the code implemented 
is EBCDIC. 

The translation to internal code is made 
with the aid of translation table TRLTAEIE, 
and produces the character set shown in 
Appendix I-a. 



IDENTIFIER TEST (IDCHECKl) 



IDCHECK1 is entered from the PROCID, 
ARRYID, and SWITCH routines, after a test 
has determined that the first character of 
a procedure, array, or switch identifier is 
a letter. IDCHECKl transfers the letter to 
an entry in the Identifier Table and to the 
output buffer; inspects the following char- 
acters of the identifier, similarly trans- 
ferring the next five characters, provided 
they are letters or digits; and returns 
control on detection of any character other 
than a letter or digit. 



CHANGE OUTPUT BUFFER (COB AND COBSPEC) 



See also "Phase Initialization". 

COB determines if the last byte but one 
in the current output buffer has been 
filled (by comparing pointer EAP (register 
3) with buffer- end pointer APE) , and if so, 
transfers the buffer-end indicator Zeta to 
the last byte pointed to by EAP; writes out 
the current buffer (whose address is stored 
at WADDARI) ; and resets pointers EAP and 
APE to an alternate buffer, addressed by 
ADDARI + DISP storing the address of the 
new buffer at WADDARI. If the current 
buffer has not been filled, COB returns 
control to the calling routine. COB is 
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called in advance of every transfer of one 
or more characters to the output buffer. 



COBSPEC, a special entry point of COB, 
includes a test as to whether a variable 
number of unfilled bytes (two or more) 
remain in the current buffer. The test 
consists in comparing REG0 (instead of EAP) 
with APE, where REGO f preset by the calling 
routine, indicates the current address 
value of EAP, incremented by the required 
number of bytes. C0BSPEC is called when a 
unit of data may not be split between 
records (e.g. the three-byte unit trans- 
ferred by SEMCO, containing the Semicolon 
(or Delta) and the semicolon count). 



DELIMITER (DELIMIT) 



DELIMIT is entered from APOSTROF when 
the second of two apostrophes enclosing a 
delimiter word has been identified. DELIM- 
IT compares the characters enclosed by 
apostrophes with a set of delimiter words 
in the Delimiter Table (W1TAB — Figure 
32) , and when the corresponding word has 
been located, branches to the routine whose 
address is specified in an entry of the 
Branch Address Table (DELPRGTB) . The dis- 
placement of the entry in the Branch 
Address Table is indicated opposite the 
delimiter in the Delimiter Table. 

The delimiter in the source text is 
compared with the group of words in the 
Delimiter Table having the same number of 
characters. The length of the delimiter in 
the source text is contained in REGL. The 
particular word group in the Delimiter 
Table, with which the comparison is to be 
made, is found with the aid of a look-up 
table (L1TAB) consisting of ten four -byte 
entries each containing the address of the 
particular word group. Thus, the address 
of a given word group comprising words of 
the same length (REGL) as the source delim- 
iter, is contained in the entry specified 
by L1TAB + 4*C(REGL). Within a given word 
group, the entries for all words are uni- 
form in length, being equal to the number 
of characters in the word, plus three (a 
two-byte characteristic or operator and a 
one- byte displacement - the displacement of 
the corresponding entry in the Branch 
Address Table, DELPRGTAB) . The number of 
entries in the word group is indicated in 
the byte preceding the word group (loaded 
in REGY) . 

If the apostrophes enclose no charac- 
ters. Error No. 12 is recorded. If the 
apostrophes enclose more than ten charac- 



ters, or if the comparison described above 
produces no corresponding Delimiter Table 
entry, control is passed to the Delimiter 
Error routine (ER0UT) . 



After a delimiter has been correctly 
identified, a test is made of the STARTEIT 
to determine if the correct delimiter open- 
ing the source module has teen found 
(indicated by STARTBIT=1). If not, control 
is passed to STARTDEL (see "Processing of 
Opening Source Text"). Otherwise, the rou- 
tine corresponding to the delimiter iden- 
tified is entered. 



Before the comparison described above is 
initiated, a test is made cf the switch 
named FBYTE. FBYTE=X'F0' signifies that 
one of the delimiters 'PROCEDURE 1 or 
'ARRAY' is being sought; while FBYTE=X , FF' 
signifies that one of the delimiters 'ELSE' 
or 'END* is being sought. In either of 
these cases, control is passed to TYFESPEC 
or C0MSPEC (See also APOSTROF). otherwise 
(FBYTE=X'00' ) , a normal comparison is ini- 
tiated. 



DELIMITER ERROR ROUTINE (EROUT) 



EROUT is entered frcm APOSTROF, when the 
closing apostrophe of a delimiter word is 
missing, and frcm DELIMIT, when a misspell- 
ing is detected in a delimiter word. EROUT 
compares the characters following the open- 
ing apostrophe with each of the words in 
the Delimiter Table (W1TAB) , moving down- 
ward through the table, and if a matching 
word is found, branches to the routine 
specified. (See DELIMIT routine). If no 
matching delimiter is found. Error No. 14 is 
recorded, the apostrophe is disregarded, 
and control is returned to TESTLOOP. The 
comparison proceeds by comparing (1) the 
first character of the defective delimiter 
with each of the entries in the first word 
group of the Delimiter Table, (2) the first 
two characters with the entries in the 
second word group, (3) the first three 
characters with the entries of the third 
word group, and so en, until a matching 
delimiter word is found, or until the last 
word group has been compared. 

The comparison is conditional on the 



switch FBYTE=X' 00 ' 



If FBYTE=X v F0 i or 



X'FF', control is passed to TYPESPEC or 
COMERR directly (see below). 

After identification of a delimiter, the 
same test of the STARTBIT is made as that 
described under DELIMIT. 
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DELIMITER TABLE (W1TAB) 




1 


2 


3 


Hexadecimal Representation 


8 


4 


5 


6 


7 


Word Group No. 


Delimiter Word 


One-byte Opera- 
tor Notation used 
in this Manual 
(see column 6) 


No. of Entries in 
Word Group 
(First byte in 
Word Group) 


Delimiter Word 


One-byte Operator (second 
byte = X' 00' ) cf Two-byte 
Characteristic for Specif icators 
or Null Operator (both 
bytes = X' 00') 


Displacement of Full-Word 
Entry in Branch Address Table 
DELPRGTAB, containing Entry 
Point of Routine Entered 


Name of 
Routine Entered 


1 


V 


/ 


02 


03 


04 00 


00 1 


NORMAL 




'(' 




03 


06 


00 00 


04 


STRING 


2 


'DO' 


Do 


43 4E 


1C 00 


08 


TED 




'IF' 


lf_ 




48 45 


ID 00 


0C | GIF 




'OR' 


Or 




4E 51 


22 00 


00 


NORMAL 


3 


'END' 


2) 


04 


44 4D 43 


00 00 


10 


END 




'FOR' 


3) 




45 4E 51 


00 00 


14 


FOR 




'AND' 


And 




40 4D 43 


23 00 


00 


NORMAL 




'NOT' 


Not 




4D 4E 53 


20 00 


00 


NORMAL 


4 


' REAL' 




09 


51 44 40 4B 


C2 12 


1 8 | TYPE 




'STEP' 


Step 




52 53 44 4F 


19 00 


00 


NORMAL 




'THEN' 


Then 




53 47 44 4D 


1 E 00 


08 


TED 




'ELSE' 


Else 




44 4B 52 44 


IF 00 


08 


TED 




'GOTO' 


Goto 




46 4E 53 4E 


17 00 


OC 


GIF 




'TRUE- 






53 51 54 44 


07 00 4) 


1C 


BOLCON 




LESS' 


< 




4B 44 52 52 


1 1 00 


00 


NORMAL 




'CODE' 


3) 




42 4E 43 44 


00 00 


20 


CODE 




'IMPL' 


Imp! 




48 4C 4F 4B 


21 00 


00 


NORMAL 


5 


'BEGIN' 


2) 


0A 


41 44 46 48 4D 


00 00 


24 


BEGIN 




'UNTIL' 


Until 




54 4D 53 48 4B 


1A 00 


00 


NORMAL 




'ARRAY' 


3) 




40 51 51 40 58 


CA 16 


28 


ARRAY 




'VALUE' 






55 40 4B 54 44 


00 00 


2C 


VALUE 




'LABEL' 






4B 40 41 44 4B 


CA 18 


30 


SPEC 




'WHILE' 


While 




56 47 48 4B 44 


IB 00 


00 


NORMAL 




'FALSE' 






45 40 4B 52 44 


00 00 4) 


1C 


BOLCON 




' POWER' 


Power 




4F 4E 56 44 51 


05 00 


00 


NORMAL 




' EQUAL' 


= 




44 50 54 40 4B 


10 00 


00 


NORMAL 




'EQUIV 


Equiv 




44 50 54 48 55 


24 00 


00 


NORMAL 


6 


; 'SWITCH' 


3) 


02 


52 56 48 53 42 47 


CA 1C 


34 


SWITCH 




'STRING' 






52 53 51 48 4D 46 


CB 10 


30 


SPEC 


7 


' INTEGER' 




05 


48 4D 53 44 46 44 51 


C2 1 1 


18 


TYPE 




'BOOLEAN' 






41 4E 4E 4B 44 40 4D 


C2 13 


18 


TYPE 




'COMMENT' 






42 4E 4C 4C 44 4D 53 


00 00 


38 


COM 




'NOTLESS' 


> 




4D 4E 53 4B 44 52 52 


15 00 


00 


NORMAL 




'GREATER' 


> 




46 51 44 40 53 44 51 


12 00 


00 


NORMAL 


8 


' NOT EQUAL ' 


t 


01 


4D 4E 53 44 50 54 40 4B 


13 00 


00 


NORMAL 


9 


'PROCEDURE' 
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01 
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CA DO 


3C 


PROCEDUR 


10 


'NOTGREATER' 
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00 
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1. For the specif teators ' REAL', 'ARRAY', 'LABEL', ' SWITCH', 'STRING', 'INTEGER', ' BOOLEAN' and ' PROCEDURE', the two-byte characteristic is copied into the Identifier Table entries of specified formal parameters. 
In the case of all other delimiter words (except for ' TRUE' and ' FALSE' and all delimiters for which both bytes in the column = X' 00' ), the first byte is transferred to the Modification Level 1 text as a one-byte operator 
representing the delimiter. The notation in column 3 indicates the name by which the operator is identified in the text. 

2. Delimiter variously represented in the Modification Level 1 and 2 versions of source text by two or more one-byte operators, supplied by program. See "Scope Identification", "Modification Level 1 Source Text" and Appendix l-b. 

3. Delimiter represented in the Modification Level 1 text by one-byte operator supplied by program. See Appendix l-b and "Modification Level 1 Source Text" . 

4. First byte specifies the displacement of the constant (False) or 1 (True) in Constant Pool No. 0. 



Figure 32. Delimiter Table (WITAB) 



TYPE SPECIFICATION (TYPESPEC) 



TYPESPEC is entered from DELIMIT and 
EROUT by virtue of the switch FBYTE=X'F0'. 
FBYTE is set toX'FO' by the TYPE routine 
when a test shows that a type declarator 
('REAL', ' INTEGER' , or f BOOLEAN') is 
immediately followed by another apostrophe, 
indicating a further delimiter. (Unless 
the latter delimiter is 'PROCEDURE' or 
' ARRAY ', the source text is in error). 
TYPE passes control to ENTRAPR (an entry 
point of APOSTROF), which scans to the next 
apostrophe and branches to DELIMIT or 
EROUT, which branch in turn to TYPESPEC on 
finding FBYTE=X'F0' . TYPESPEC inspects the 
delimiter and passes control to TYPPR0C or 
TYPEARRY, if the delimiter is 'PROCEDURE' 
or 'ARRAY' , respectively. If any other 
delimiter is identified, control is passed 
to the Identifier Error routine IERSPEC. 
The latter serves to bypass the defective 
declaration and to record an error. 



COMMENT (COMSPEC) 



COMSPEC is entered from DELIMIT by vir- 
tue of the switch FBYTE=X'FF'. FBYTE is 
set to X'FF' by the COM routine when an 
apostrophe is found in a sequence of com- 
ment following 'END', indicating that the 
comment is terminated by a delimiter word. 
The/ latter should be 'END' or 'ELSE'. COM 
passes control to ENTRAPr (an entry point 
of APOSTROF) , which scans to the next 
apostrophe and branches to DELIMIT, which 
branches in turn to COMSPEC on finding 
FBYTE=X'FF'. COMSPEC inspects the delimi- 
ter and passes control to END or TED, if 
the delimiter is 'END' or 'ELSE'. If any 
other delimiter is identified, control is 
passed to COMCED2 (an entry point of the 
COM routine) . The latter continues to scan 
to the next semicolon or apostrophe, disre- 
garding the delimiter. 



transfers the operator Begin to the Modi- 
fication Level 1 text, stacks Begin , and 
turns the BEGBIT switch on. 

If the stack operator is Proc, indicat- 
ing that the delimiter 'BEGIN 1 opens the 
body of a procedure closed by 'END 1 , the 
stack operator Proc is replaced by Proc* 
and the PROBIT switch turned off. 



STRING (STRING) 



STRING is entered from DELIMIT and ERCUT 
on recognition of the first of two string 
quote signs • (•...') • enclosing a character 
string. STRING stores the enclosed charac- 
ter string in the Constant Pool and trans- 
fers a five-byte internal name, referencing 
the location where the string is stored, to 
the Modification Level 1 text. The inter- 
nal name (see Appendix II) is preceded by 
the Apostrophe operator. 

The string is stored in the Constant 
Pool in the external code (EBCDIC or ISO) 
of the source module — it is copied from 
the print area (or dummy print area) tc 
which each source module record is moved by 
CIB, before the record is translated to the 
internal code, see Figure 7. 



NORMAL ACTION (NORMAL) 



NORMAL is entered from DELIMIT or ERCUT 
when any one of the following delimiters is 
identified: '/', 'OR', 'AND - , 'NOT', 
'STEP', 'LESS*, 'UNTIL', 'NOTLESS', 
'EQUAL', 'EQUIV, 'IMPL 1 , 'WHILE', 
' GREATER' , ' NOTEQUAL' , and ' NOTGREATEP' . 
NORMAL transfers the corresponding one -byte 
operator in the Delimiter Table (Figure 32) 
to the output buffer and returns control to 
TESTLOOP or LIST. 



OPENING DELIMITER (STARTDEL) 



See "Processing of Source Module Opening 
Text". 



BEGIN (BEGIN) 

BEGIN is entered from DELIMIT and EROUT 
on recognition of the delimiter 'BEGIN' . 

BEGIN inspects the Scope Handling Stack 
and, unless the stack operator is Proc, 



BOOLEAN CONSTANT (BOLCON) 



BOLCON is entered from DELIMIT or ERCUT 
when the boolean constant 'TRUE' or 'FALSE' 
is encountered. A five-byte internal name 

(Figure 33) is transferred to the output 
buffer, indicating the character of the 
boolean constant, and referencing a loca- 
tion in the Constant Pool where the con- 
stant (False) or 1 (True) is stored. The 
internal name is preceded by the Apostrophe 

(X'2E'), which signals the Scan III Phase 
that an internal name follows. 
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(Character (Constant (Displacement) 
istic) Pool) 

1 2 3 4 5 

•TRUE 1 | C8 | 03 | 00 | 00 | 07 | 
L i J X -L J 

•FALSE 1 | C8 | 03 | 00 | 00 | 00 | 

L J J J. ± J 



output text and in the Scope Handling 
Stack, It also constructs entries in the 
Group Table, Program Block Number Table and 
Semicolon Table. 



END (END) 



Figure 33. Internal Names of boolean con- 
stants "TRUE" and "FALSE 1 



GOTO-IF (GIF) 



END is entered from DELIMIT or EROUT 
when the delimiter 'END 1 is recognized. 
Its function is to inspect the operator in 
the Scope Handling Stack and to activate 
the appropriate closing subroutine, accord- 
ing to the stack operator detected: 



GIF is entered from DELIMIT or EROUT on 
recognition of the delimiters 'GOTO' and 
'IF*. The one- byte operator given in the 
Delimiter Table (Figure 32) is transferred 
to the output buffer and control passed to 
STATE. 



Stack Operator 

Beta , Proc 
Proc* , Proc** 

Begin 

For 



Subroutine Activated 



PBLCKEND 



COMPDEND 



FOREND 



THEN-ELSE- DO (TED) 



Alpha 



ERR8 (see "Close of 
Scan I /I I Phase") 



The subroutines are described below. 



TED is entered from DELIMIT or EROUT on 
recognition of the delimiters 'THEN', 
'ELSE', or 'DO'. A one- byte symbol rep- 
resenting the delimiter in the Delimiter 
Table (Figure 32) is transferred to the 
output buffer. Before control is returned 
to TESTLOOP or LIST, pointers OPIN and 
LAP IN are set to point, respectively, to 
the delimiter symbol transferred and to the 
next byte in the output buffer (see "Phase 
Initialization") . 



COMPOUND END (COMPDEND) 



COMPDEND releases the stack operator 
Begin and transfers the operator End to the 
output text, marking the close of a com- 
pound statement. See END. 



FIRST BEGIN (FIRSTBEG) 



See "Processing of Source Module Opening 
Text" . 



FOR STATEMENT END (FOREND) 



PROGRAM BLOCK (BEG1 SUBROUTINE) 



BEGl is activated as soon as a new block 
has been identified. It is entered from 
all declaration- handling routines (e.g. 
TYPE, PROCEDUR, ARRAY) processing the first 
declaration following the delimiter 'BEGIN 1 
(indicated by the switch BEGBIT=1) . BEGl 
constructs a program block heading entry in 
the Identifier Table, containing a new 
Program Block Number; resets the pointers 
LPBP and LIGP to the new heading entry; and 
replaces the operator Begin by Beta in the 



FOREND, which is entered from END and 
SEMCO on detection of the delimiter f END' 
or a semicolon closing a for statement, 
constructs a for statement closing entry in 
the Identifier Table, if the closed for 
statement contained a declared label. If 
the closed for statement contained no 
declared labels, the for statement heading 
entry is deleted. FOREND also transfers 
the operator Eta , followed by the Identifi- 
er Group Number, to the output text, and 
releases the stack operator For . Pointer 
LIGP is reset to point to the heading entry 
of the reentered for statement, if any, or 
to the heading entry of the enclosing block 
or procedure. 
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PROGRAM BLOCK END (PBLCKEND SUBROUTINE) 



PBLCKEND, which is called by END and 
SEMCO on detection of the delimiter 'END' 
or a semicolon closing a block or proce- 
dure, transfers the set of entries in the 
Identifier Table representing identifiers 
declared or specified in the block or 
procedure to the SYSUT3 data set. The 
program block heading entry which heads 
this set of identifiers is indicated by the 
pointer LPBP • Before the transfer is exe- 
cuted, pointers LPBP and LIGP are reset to 
the address of the heading entry corres- 
ponding to the enclosing block or procedure 
(see "Processing of Identifier Table"). 
PBLCKEND also transfers the operator Epsi- 
lon to the output text, followed by the 
Program Block and Identifier Group Number 
of the enclosing block, procedure or for 
statement # and releases the stack operator. 



COMMENT (COM) 



COM has two main functions: to bypass 
comments, and to delete (or bypass) erro- 
neous declarations. The routine scans the 
source text (using translation table 
COMTABLE) for a semicolon, an apostrophe, a 
blank, or Zeta . The function bytes 
assigned these characters specify displace- 
ments to subprograms of the COM routine. 

There aire three entry points: COM, COM- 
MEND, and COMERR* 

COM is entered from DELIMIT and EROUT 
when the delimiter 'COMMENT' has been 
encountered. Scanning continues until a 
semicolon is found. This deletes (or 
bypasses) all source text beginning with 
'COMMENT* and extending up to and including 
the semicolon. 

COMMEND is entered from END when a 
comment of the following form is to be 
eliminated: 'END'<comment> 'END'/;/ 'ELSE'. 
Scanning terminates when a semicolon or an 
apostrophe is found, deleting the preceding 
comment. In case a semicolon is found, 
SEMCO is entered* If an apostrophe is 
found, the switch FBYTE is set to X'FF' and 
control passed to ENTRAPR (an entry point 
of APOSTROF) . APOSTROF scans to the next 
apostrophe, branches to DELIMIT (or EROUT) , k 
which branches to COMSPEC on finding 
FBYTE=FF. COMSPEC inspects the delimiter 
and branches to END or TED if the delimiter 
is 'END' or 'ELSE', respectively. In all 
other cases, COMERR is entered. 

COMERR is entered from several 
declaration-processing routines when an 
erroneous declaration is identified. Scan- 



ning continues until a semicolon is found. 
This deletes all source text beginning with 
the declarator and extending up to (but not ^ 
including) the next semicolon. When the ^ 
semicolon is found, SEMCO is entered* 



FOR STATEMENT (FOR) 



FOR is entered from DELIMIT and EROUT on 
recognition of the delimiter 'FOR'. A for 
statement heading entry is constructed in 
the Identifier Table and entries are made 
in the Scope and Group Tables. If the 
stack operator is Proc, it is replaced by 
Proc** . The operator For is stacked and 
transferred to the output text, followed by 
a new Identifier Group Number. 



TYPE DECLARATION (TYPE) 



TYPE is entered from DELIMIT and ERCUT 
on recognition of any of the declarators 
•REAL', • INTEGER ', or 'BCOIEAN'. The rou- 
tine makes an entry in the Identifier Table 
for each of the identifiers following the 
declarator, provided the identifier is 
valid. If any invalid character is fcund 
in the identifier, control is passed to the 
Identifier Error routine (IER), which 
deletes the entry made in the Identifier 
Table and records Error No. 5 or 16. If 
the declarator is immediately followed by 
another apostrophe, indicating a further 
delimiter, the switch FBYTE is set s X*F0' 
and ENTRAPR (an entry point of APOSTROF) is 
entered. 

At entry, the switches PROBIT and BEGEIT 
are tested, in that order. If PROBIT=l, 
indicating that the delimiter specifies a 
formal parameter in a procedure heading, 
control is passed to the SPECENT routine. 
If BEGBIT=1, indicating that the declarator 
represents the first declaration following 
'BEGIN' and that, accordingly, a new block 
has been entered* a call is made to the 
BEGl subroutine (which assigns a new Pro- 
gram Block Number) before entries for the 
declared identif ier(s) are made in the 
Identifier Table. 



IDENTIFIED feRROR (IER) 



IER is entered from declaration- proc- 
essing detection of a defect in a declared 
identifier* The routine deletes all or 
part of an entry for the identifier in the 
Identifier Table and records Error No. 5 
or 16, depending on the entry point (IlR or 
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IERSPEC) . It also skips over the source 
text up the next comma, semicolon, or 
right parenthesis, in the case of a formal 
parameter list. 



CODE PROCEDURE (CODE) 

CODE is entered from DELIMIT or EROUT on 



recognition of the delimiter 'CODE 1 



rep- 



resenting the body of a code procedure. 
The routine verifies that 'CODE' follows a 
procedure heading } modifies the charac* 
teristic in the entry previously made (by 
the PROCEDUR and PROCID routines) for the 
procedure identifier in the Identifier 
Table, so as to designate a code procedure, 
and transfers up to six characters of the 
procedure identifier, followed by two 
Blanks , to the output text, preceded by the 
operator Gamma . After finding the semico- 
lon whicE should follow 'CODE 1 , the 
PBLCKEIID subroutine is called and control 
then passed to SEMCO. 

At entry, the switches PROBIT and BEGBIT 
are tested, in that order. If PR0BIT=1 
indicating that the delimiter specifies a 
formal parameter in a procedure heading, 
control is passed to the SPECENT routine. 
If BEGBIT=1, indicating that the declarator 
represents the first delimiter following 
'BEGIN 1 , and that, accordingly, a new block 
has been entered, a call is made to the 
BEG1 subroutine (which assigns a new Pro- 
gram Block Number) before processing con- 
tinues. 



SPECIFICATION (SPEC) 

SPEC is entered from DELIMIT or EROUT on 
recognition of the specif icators 'LABEL 1 
and 'STRING*. Its function is to verify 
that the specif icators occur in a procedure 
heading. If they do, control is passed to 
the Type Specification routines (SPECENT 
and IDCHECK) , If not, Error No. 25 is 
recorded, and the declaration is skipped by 
branching to COMERR. 



VALUE (VALUE) 

VALUE is entered from DELIMIT or EROUT 
on recognition of the delimiter 'VALUE' 

After testing the switch PROBIT to in- 
sure that the delimiter occurs in a proce- 
dure heading (signified by PR0BIT=1) , the 
switch VAL3IT is turned on and control is 
passed to IDCHECK. The latter locates the 
Identifier Table entry corresponding to 
each formal parameter which follows 'VALUE' , 
and, by virtue of VALBIT=1, sets the value 
bit in the identifier characteristic (Fig- 
ure 9) so as to designate a value-called 
parameter. 



PARAMETER SPECIFICATION (SPECENT and 
IDCHECK) 

SPECENT is entered from TYPE, ARRAY, 
SWITCH and PROCEDUR, when a specificator is 
encountered in a procedure heading (indi- 
cated by PR0BIT=1). SPECENT moves the cor- 
responding two-byte characteristic con- 
tained in the Delimiter Table (Figure 32) 
to a field named KB and then enters IDCHECK, 

IDCHECK is entered from SPECENT and 
from VALUE. IDCHECK"s function is to locate 
the appropriate entry (entries) in the Iden- 
tifier Table and a) to insert the charac- 
teristic and Program Block Number, or b) to 
set the value bit in the characteristic, 
(Before the value or specification parts of 
a procedure heading are processed, the 
external names of all formal parameters are 
copied into a sequence of Identifier Table 
entries, from the parameter list which fol- 
lows the procedure identifier. The first of 
these entries is addressed by the pointer 
PRIMPAR) . The characteristic is inserted 
by ORing the relevant bytes of the Identi- 
fier Table entry with the contents of the 
location KB • 

TYPE ARRAY (TYPEARRY) 

TYPEARRY is entered from TYPE SPEC- when a 
delimiter sequence of the type '<type> ' 
•ARRAY' has been identified. If PR0BIT=1 
(indicating the delimiter sequence occurs 
in a procedure heading) control is passed 
to IDCHECK which proceeds to complete the 
Identifier Table entry for a type-array 
parameter of a procedure. If BEG3IT=1 
"(indicating the delimiter sequence rep- 
resents the first declaration following 
'BEGIN', and that accordingly 'BEGIN' opens 
a block) , the BEG1 subroutine is called. 
Thereafter, control is passed to the ARRAY 
routine (by way of ARRYDME1) , which con- 
structs an entry for a type-array identifi- 
er in the Identifier Table. 

ARRAY DECLARATION (ARRAY) 

ARRAY is entered from DELIMIT and EROUT 
on recognition of the delimiter 'ARRAY'. 
The routine constructs an entry in the 
Identifier Table for each array identifier 
following the declarator (by call to the 
IDCHECK1* subroutine) •, and transfers the 
operator Array to the output text, followed 
by up to six characters of each identifier. 
On recognition of the left bracket, (/, 
marking the beginning of the dimension 
list, the operator £ is transferred to the 
output text and control passed to the LIST 
routine. The LIST routine analyzes the 
dimension list, records a count of the 
number of dimensions in the corresponding 
Identifier Table entries, transfers the 
dimension list to the output text, and 
returns control to ARRAY if the dimension 
list is followed by a further identifier. 
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At entry, the switches PROBIT and BEGBIT 
are tested, in that order. If PROBIT=l r 
indicating that the delimiter specifies a 
forma 1 parameter in a procedure heading, 
control is passed to the SPECENT routine. 
If BEGBIT=1, indicating that the declarator 
represents the first declaration following 
'BEGIN' and that a new block has been 
entered, a call is made to the BEG1 subrou- 
tine (which assigns a new Program Block 
Number) , before entries for the declared 
array (s) are made in the Identifier Table. 



component list; and record the dimension 
count or component count in the correspond- 
ing Identifier Table entries made by the 
ARRAY or SWITCH routines for the array or 
switch identifiers. The actual dimensions 
in a dimension list or the components in a 
component list are transferred to the cut- 
put text by the LIST routine before branch- 
ing to the routine concerned. The switch 
ARBIT=1 specifies an array dimension list, 
while ARBIT=0 specifies a switch component 
list. 



ARRAY/SWITCH LIST (LIST) 



POINT IN LIST (PONTLST) 



The LIST routine is entered from the 
ARRAY and SWITCH routines upon recognition 
of a dimension list in an array declaration 
or a component list in a switch declara- 
tion. LIST scans the source text 
(beginning with the first character follow- 
ing the left bracket in an arra^ declara- 
tion or the first character following the 
assignment operator in a switch 
declaration) for any one of 15 characters 
assigned a non-zero function byte in Trans- 
lation Table (ART ABLE) ; moves the scanned 
text to the output buffer; and branches to 
the routine whose address is specified in a 
full-word entry of Branch Address Table 
(BPRTAB) given by the value of the 
character's function byte. 

The function bytes assigned by ARTABLE 
to the character set and the routines 
entered from LIST are as follows: 



PONTLST inspects the character following 
the point and passes control to CcLONLST or 
SEMCLST or transfers a Decimal Point. 



RIGHT PARENTHESIS IN LIST (RIGHTPARL) 



RIGHTPARL transfers a right parenthesis 
and decrements the bracket count. 



LEFT PARENTHESIS IN LIST (IEFTPARI) 



LEFTPARL transfers a left parenthesis or 
a left bracket, [ , representing (/, and 
increments the bracket ccunt. 





Function 


Routine 


Character 


Byte 


Entered 


Apostrophe 


34 


APOSTROF 


* 


04 


TRANSOP 


> 


14 


« 


< 


10 


" 


Not 


18 


n 


Zeta 


38 


CIB 


Blank 


28 


BLANK 


Invalid 


2C 


ERR1 


Character' 






Comma 


80 


COMMALST 


/ 


88 


SLASHLST 


) 


6C 


RIGHTPARL 


( 


68 


LEFTPARL 


Point 


84 


PONTLST 


Colon 


54 


COLONLST 


Semicolon 


58 


SEMCLST 


<A11 other 


00 


(No branch, 


characters > 




scanning 
continues) 



The latter seven routines recognize sep- 
arators in a dimension on component list; 
transfer representative operators to the 
output buffer; count the number of dimen- 
sions or components in a dimension or 



COMMA IN LIST (COMMALST) 



COMMALST increments the dimension ccunt 
and transfers the Comma operator. 



COLON IN LIST (COLONLST) 



Transfers a colon, provided it occurs in 
an array dimension list. If it occurs in a 
switch component list, the colon is disre- 
garded and Error No. 3 is recorded. 



SEMICOLON IN LIST (SEMCLST) 



SEMCLST stores the component count in 
the Identifier Table entry specified by a 
pointer named DIM, and transfers control tc 
SEMCO, after specifying the return address 
of TESTLOOP. If the semicolon occurs in an 
array dimension list, Error No. 32 is 
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recorded, and the identifier entry is 
deleted. 



SLASH IN LIST (SLASHLST) 



SLASHLST inspects the character follow- 
ing the slash and transfers the slash or a 
right bracket , ]; enters the dimension 
count for a declared array in the Identifi- 
er Table entry indicated by pointer DIM; 
and transfers control to ARRAY, SEMCO, or 
COMERR, according to whether the character 
following is a comma, a semicolon, or any 
other character, excepting Zeta or a blank. 



Block Number for the procedure identifier, 
followed by a program block heading entry, 
and copies the external names of the formal 
parameters in the parameter list into the 
following entries. 

Initially, the PR0BIT and BEGBIT switch- 
es are tested, in that order. If PROBIT=l 
(indicating that the delimiter ' PROCEDURE - 
specifies a formal parameter in a procedure 
heading), control is passed directly tc 
SPECENT. If BEGBIT=1 (indicating that the 
delimiter represents the first declaration 
following "BEGIN* and that* accordingly,, 
'BEGIN' opens a new block), a call is made 
to the BEG1 subroutine. 



SWITCH DECLARATION (SWITCH) 



PROCEDURE IDENTIFIER (PRCCID) 



SWITCH is entered from DELIMIT and EROUT 
on recognition of the declarator 'SWITCH 1 . 
SWITCH constructs an entry in the Identifi- 
er Table for the identifier following the 
declarator, and transfers up to six charac- 
ters of the identifier to the output text, 
preceded by the operator Switch . On detec- 
tion of the assignment operator marking the 
beginning of the component list, the Assign 
operator is transferred and control passed 
to the LIST routine. LIST transfers the 
component list to the output text, counts 
the number of components in the list* and 
enters the component count in the Identifi- 
er Table entry for the switch identifier. 

At entry to the routine, the switches 
PROBIT and BEGBIT are tested, in that 
order. If PROBIT=l (indicating that the 
delimiter specifies a formal parameter in a 
procedure heading) , control is passed to 
the SPECENT program. If BEGBIT=1 
(indicating that the declarator represents 
the first declaration following 'BEGIN" and 
that, accordingly, a new block has been 
entered), the subroutine BEG1 is called 
before entries for the declared switches 
are made in the Identifier Table. 



PROCID is entered from PROCEDUR when a 
procedure declaration has teen encountered. 
PROCID first constructs an entry in the 
Identifier Table for the procedure iden- 
tifier. The external name (up to six 
characters) is copied into the entry and 
transferred tc the output text ty call to 
IDCHECK1. The characteristic for the pro- 
cedure identifier will have been stored in 
the entry by PROCEDUR. When a left paren- 
thesis (opening a parameter list) or a 
semicolon (following the identifier of a 
parameterless procedure) is encountered* a 
program block heading entry is constructed. 
If the procedure is a type-procedure* a 
second identifier entry for the procedure 
identifier is made immediately after the 
heading entry. The external names of the 
formal parameters, represented by a maximum 
of six characters, are now copied into the 
following entries of the Identifier Table 
and the output text. The two-byte charac- 
teristics of these parameters are inserted 
immediately after, by the SPECENT routine 
when the specifications in the procedure 
heading are processed. Control is passed 
to SEMCO as soon as a semicolon following 
the closing right parenthesis of the param- 
eter is encountered. 



PROCEDURE DECLARATION (PROCEDUR) 



TERMINATION (EODADIN) 



PROCEDUR is entered from the DELIMIT and 
EROUT routines on recognition of the delim- 
iter 'PROCEDURE'. PROCEDUR makes entries 
in the Group, Semicolon, and Program Block 
Tables; transfers the operator Pi to the 
output text and the Stack; inserts the 
characteristic for a declared procedure 
identifier into the next entry of the 
Identifier Table; and passes control to 
PROCID, which constructs an entry in the 
Identifier Table, containing a new Program 



EODADIN is entered from: 

. PBLCKEND (via COMMEND and READRCUT) 
when the stack operator Alpha (marking 
the bottom of the Scope Handling 
Stack) indicates that the outermost 
scope of the source module has been 
closed; 

ENDMISS when an unexpected End of Data 
condition occurs; 
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3. PIROUT (in the Directory) when a pro- 
gram interrupt or unrecoverable I/O 
error occurs; and 

4. ERR 4 when a terminating error is 
detected in the source module. 

See also "Close of Scan I/II Phase". 

EODADIN transfers the closing operator 
Omega to the Modification Level 1 text; 
writes out the last record of the modified 
source text (by calling COB) , except when 
the entire text occupies less than a full 
buffer (in which case it is transmitted to 
the Scan III Phase in the Common Area 
buffer) ; generates TXT records of the char- 
acter strings in the Constant Pool (by 
calling the GENERATE - GENTXT5 subroutine) 
on the SYS PUNCH and/ or SYSLIN data sets, 
provided the DECK and/or LOAD options have 
been specified; closes the SYSiN,, SYSUTl f 
and SYSUT3 data sets; releases main stor- 



age; and transfers control to the Identifi- 
er Table Manipulation Phase (IEX20) f or, if 
a terminating error has occurred, to Diag- 
nostic Output Module IEX21. 

If the source module is a precompiled 
procedure. Program Block No. in the 
Identifier Table, containing an entry for 
the procedure name, is transferred to the 
SYSUT3 data set (by call to PBLCKEND) and 
an ESD record for the procedure name is 
generated (by calling GENERATE-GENESD) . 
The precompiled procedure name will have 
been stored in external code at the loca- 
tion named ES DP ARAM by the PROCID routine. 



GENERATE SUBROUTINE 



See Chapter 8. 
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CHAPTER 5: IDENTIFIER TABLE MANIPULATION PHASE (IEX2 0) 



PURPOSE OF THE PHASE 



contents of the Identifier Table, if 
the SOURCE option has been specified. 



The main purpose of the Identifier Table 
Manipulation Phase is to complete the con- 
struction of the internal names of all 
identifiers listed by the Scan I/II Phase 
in the Identifier Table, Except in the 
case of entries for declared procedure and 
switch identifiers and labels, the last two 
bytes of the internal name provide space 
for the relative address of the 
identifier's object time storage field 
(Figure 36), The Identifier Table Manip- 
ulation Phase assigns an object time stor- 
age field to each identifier, and stores 
the corresponding relative address in the 
space provided in the identifier's internal 
name. 

The processing of the Identifier Table, 
which forms the main input to the Identifi- 
er Table Manipulation Phase, may be divided 
into the following functions. 

1. To search each group of identifiers in 
the Identifier Table for repeated dec- 
larations of the same identifier, and 
to record appropriate error patterns 
in the Error Pool. 

2. To allocate object time storage fields 
to the identifiers listed in the Iden- 
tifier Table, and to record the rela- 
tive address of each identifier's 
assigned storage field in the 
identifier's internal name. The rela- 
tive address represents a displacement 
from the beginning of a Data Storage 
Area, comprising the total number of 
bytes assigned to identifiers declared 
or specified in the particular block 
or procedure. 

3. To construct Program Block Table II 

(PBTAB2), indicating the size of the 
Data Storage Area required at object 
time for every block and procedure in 
the source module. Program Block 
Table II is transmitted in main stor- 
age to the Compilation Phase, in which 
the space requirements recorded in the 
table are augmented by additional 
space allocations for the storage of 
intermediate results. 

4. To transmit the completed Identifier 
Table (via SYSUT3) to the Scan III 
Phase according to ascending Program 
Block Number sequence. 

5. To generate a printed listing of the 



IDENTIFIER TABLE MANIPULATION PHASE 
OPERATIONS 



The diagram in Figure 34 illustrates the 
principal operations performed in the Iden- 
tifier Table Manipulation Phase. The 
bracketed numbers in the following text 
refer to the numbered positions in the 
diagram. 



IDENTIFIER TABLE MANIPULATION PHASE (IEX20) 



3. Write ITAB (WRITITAB ) 



1. Identifier Scon (READBLK) 

Reads an ITAB record into the work 
area and stores the record 's work 
area address in ATAB. Scans the re- 
cord for multiple declarations and 
records errors in the Error Pool . Passes 
control to ALLOSTOR. 



(Lists addresses of 

ITAB records in 

ascending Program _ ,_.„ . ,, 

Block Number order) Outputs ITAB when all 

records have been processed. 

Records are output in ascend- 
ing Program Block Number 
sequence, with the aid of 



L 



Address 
Table 



ATAB 



(Records not in 
Program Block 
Number order) 



• Storage Allocation (ALLOSTOR) 
Allocates a storage field in an 
object time Data Storage Area for 
each identifier in an ITAB record, 
and records the relative address in 
the identifier's ITAB entry. Stores 
the total allocation for all identi- 
fiers, in PBTAB2. Returns to Identi- 
fier Scan, unless the last record has. 
been read, in which case control I 
is passed to WRITITAB. L 



Identifier Table 



sequence, with the aid ot 

I ATAB. Passes control to 

J ITABPRNT if the SOURCE 

I option is specified} other- 

I wise, to CLOSE. 



I 



(Records DSt in 
Program Block 
Number order) 



Multiple dec- 
larations and 
other errors 



Identifier 

Table 

(ITAB) 



(Records in 
Program Block 
Number order) 



Table 7 
Listing 



Program 
Block 
Table II 
PBTAB2 



Print ITAB (ITABPRNT) 
Prints a listing of ITAB, 
if the SOURCE option is 
specified, and exits to 
CLOSE. 

, Termination (CLOSE) 
Releases main storage and 
transfers control to Load 
Module IEX21 (for output 
of diagnostic messages re- 
flecting errors recorded in 
Error Pool). ■ 

I (XCTLto IEX21) 



Figure 34. Identifier Table Manipulation 
Phase. Diagram illustrating 
the functions of the principal 
c ons t it u e nt rout in es . 

Identifier Table records (1) are read 
into a work area and processed, one at a 
time f in the order in which they were 
stored on the SYSUT3 data set by the Scan 
I/II Phase, that is, according to the 
sequence in which the blocks and procedures 
were closed in the source module. To 
enable the records to be output in ascend- 
ing Program Block Number sequence, the 
address of each record is stored in the 
Address Table (ATAB), in an entry deter- 
mined by the record's Program Block Number. 
Initially, each record is scanned by the 
Identifier Scan routine to determine if 
multiple declarations were made for the 
same identifier. 
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After the record has been scanned and 
appropriate errors recorded in the Error 
Pool, the Storage Allocation routine (2) 
allocates an object time storage field to 
each identifier, and records the address of 
the allocated bytes (relative to the begin- 
ning of the Data Storage Area comprising 
the total allocation for the block or 
procedure) in the corresponding identifier 
entry. 

When all records of the Identifier Table 
have been read in and processed in this 
manner, the Identifier Table is (3) 
retransf erred to the SYSUT3 data set, 
records being output in ascending Program 
Block Number sequence. If the SOURCE 
option was specified, (4) a listing of the 
Identifier Table is printed; otherwise, (5) 
the termination routine (CLOSE) is entered. 
CLOSE transfers control to the next phase. 



PHASE INPUT/ OUT PUT 



The identifier Table listing is compiled 
by the ITABPRNT routine and printed on 
SYSPRINT, line by line, by call to PRINT in 
the Directory. Phase Input/Output 



IDENTIFIER TABLE (ITAB) 



Figure 36 shows the space provided (last 
one-and-one-half bytes) in the typical 
identifier entry for the relative address 
of an identifier's storage field in the 
particular block's or procedure's object 
time Data Storage Area. The figure is not 
representative of identifier entries for 
declared labels and declared procedure and 
switch identifiers, in which the last 1 1/2 
bytes contain a displacement address in the 
object time Label Address Table, inserted 
by the Scan I/II Phase. 



Figure 35 pictures the data input to and 
output from the Identifier Table Manipula- 
tion Phase. The figure also shows the 
tables transmitted to and from the phase in 
main storage. 
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| Name> 
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|<Charac- |<PBN>| 
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-Inserted by Scan- 
I/II Phase 
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<Disp> j 



Identifier Table 
(ITAB) 



Program Block Number 
Table (PBTAB1) 



_, I 



IDENTIFIER TABLE 
MANIPULATION 
PHASE 



j Main Storage 

I Program Block Table II 
(PBTAB2) 



Identifier Table 
(ITAB) 



SYSPRINT 

Identifier Table 
Listing (if 
SOURCE 
specified) 



<Disp> = displacement in the block's or 
procedure's Data Storage Area> 

Figure 36. Identifier Table (ITAB) entry, 
showing the identifier's Data 
Storage Area displacement 
address, as inserted by the 
Identifier Table Manipulation 
Phase in bytes 9 and 10 w for 
all identifiers except those of 
declared procedures, switches 
and labels. 



The Identifier 
fully in Chapter 4. 



Table is described more 



Figure 35. Identifier Table Manipulation 
Phase Input/Output 



PROGRAM BLOCK TABLE II (PBTAB2) 



Identifier Table records (variable 
length) are read from the SYSUT3 data set 
by a READ macro. 

Output of the completed Identifier Table 
to SYSUT3 is initiated after all records of 
the Scan I/II version have been read into 
main storage and processed, and after the 
data set has been closed by a Type T CLOSE. 



The Program Block Tafcle II (PETAE2) 
indicates the total number of object time 
storage bytes allocated in the Identifier 
Table Manipulation Phase to each block and 
procedure in the source module. PBTAB2 is 
transmitted in main storage to the Compila- 
tion Phase, where it is transferred tc 
Program Block Table III. 
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|<Total bytes allocated to the block or | 
| procedure > | 

L ; J 

Figure 37. Two-byte entry in Program Block 
Table II (PBTAB2) 

PBTAB2 is constructed by the ALL0ST0R 
routine. The total storage allocation for 
a particular block or procedure is stored 
in the entry corresponding to the particu- 
lar Program Block Number. 



SAVEPB, SAVE, and BITS1 are three Common 
Work Area locations defined by a dummy 
control section in Load Module IEX20 (ITAB 
Manipulation) . SAVEPB is the name of the 
Program Block Counter which is incremented 
by 1 in the Lastrec routine for every 
Identifier Table record processed. SAVEPE 
is compared with PBN (the program block 
count transmitted by the Scan I/II Phase in 
the Common Work Area) ., and if the count is 
identical (indicating that all Identifier 
Table records have been read in from SYSUT3 
and processed), control is passed to WRITI- 
TAB f which outputs the table on SYSUT3. 



CONSTITUENT ROUTINES OF IDENTIFIER TABLE 
MANIPULATION PHASE 



SAVE is a location used (by the ITABPRNT 
routine) in converting numerical data r in 
connection with the print-out of the Iden- 
tifier Table. 



The principal constituent routines of 
the Identifier Table Manipulation Phase are 
described below. The index in Appendix XI 
indicates the page on which each routine is 
described and the flowchart in the Flow- 
chart Section in which the general logic of 
the routine is set forth. 



PHASE INITIALIZATION 



The Initialization routine gets main 
storage for the private work area shown in 
Figure 38; initializes pointers and switch- 
es; specifies EOD and program interrupt- I/O 
error routines; calls the PRINT subroutine 
in the Directory, after assembling head- 
lines for the Identifier Table listing, 
provided the SOURCE option is specified, 
and exits to READBLK (which reads in Iden- 
tifier Table records from the SYSUT3 data 
set) . 

The program interrupt -I/O error exit, 
CL0SE2, is stored at ERET, a location in 
the Common Work Area referenced by the 
PIROUT routine in the Directory. The exit 
is changed, after the GETMAIN instruction, 
to CLOSE. CLOSE releases main storage and 
transfers control to Diagnostic Module 
IEX21, while CL0SE2 simply transfers con- 
trol to IEX21. 

The GEtMAIN instruction for the private 
work area is issued after the total area 
required for the Identifier Table (ITAB) 
and the Address Table (ATAB) has been 
computed. The area allotted to the Iden- 
tifier Table is fetched from the ITAB20S 
entry in the Area Size Table in the Common 
Work Area. The area provided for the 
Address Table is fixed at 1024. 



BITS1 contains a switch, named PRCCEIT. 
PR0CBIT=1 (turned on in the ITABPRNT rou- 
tine on recognition of a procedure 
identifier) signifies that the Identifier 
Table entry being processed is that of a 
procedure identifier, and that the paramet- 
er count in the internal name is the actual 
count and should net be increased by 1 when 
the entry is printed out. PROCBIT=0 signi- 
fies that the Identifier Table entry being 
processed is that of an array or switch 
identifier, and that the dimension count or 
component count in the internal name rep- 
resents the actual count,, less one,, and 
should be increased by 1 when the entry is 
printed out. 



DM DSP NAME 
DSP M for the 
PR LN M for 

a field named 



If the SOURCE option is specified, the 
headlines "IDENTIFIER TABLE" for the first 
line, "PBN SC PBN NAME TYPE 
TYPE DM DSP NAME TYPE DM 
second, and "SURR PR LN PR LN 
the third line, are moved to 
PAGEHEAD in the Common Work Area. A call 
is then made (via PRINTITB) to the PRINT 
subroutine in the Directory, which prints 
out the headings on a new page. Resetting 
to a new page is governed by presetting the 
line count to 128 (in LINCNT) before call- 
ing PRINT. 



If short precision has been specified 
(determined by testing the LNG switch in 
the HCOMPMOD Control Field), the value 4 is 
stored in the half-word named C, displacing 
the defined constant 8, and specifying tc 
the ALLOSTOR routine that arithmetic iden- 
tifiers are to be allocated four bytes 
each. If short precision has not been 
specified, C remains unchanged at 8, and 
real (or floating point) identifiers will 
accordingly be assigned eight bytes each. 



Chapter 5: Identifier Table Manipulation Phase 71 



(at initializa- 
tion) AITAB 



READBLK Routine 



AIB (reg. 8) 



RAID (reg. 7) 



AITAB 



(at initialization) 
ATABAD ~ 



Identifier Table (ITAB) 
Work Area 



(An ITAB record) 
AKOM (reg. 9) 



(An ITAB record) 



REGY (reg. 10) -■ 



Address Table (ATAB) 
(T024) 



ALLOSTOR Routine 



AIB (reg. 8) 
RAID (reg. 9) 



AITAB 



ITABPRNT Routine 



: AIB (reg. 8) 

RAID (reg. 9) 
AITAB 



Notes: 

1 . In the READBLK routine AITAB initially 
addresses the location in the Identifier Ta- 
ble Work Area to which the next record is 
read from SYSUT3. After read-in of the re- 
cord is complete, AIB is set equal to AITAB, 
and AITAB is then incremented by the length 
of the record (in the heading entry), so 
that AIB and AITAB now point to trie begin- 
ning and end of the record. RAID addresses 
successive identifier entries in the record, 
moving progressively through the record; 
while AKOM addresses each of the entries 
following RAID, with which the identifier 
addressed by RAID is compared. 

2. In the ALLOSTOR routine, AIB and AITAB 
point to the beginning and end of the re- 
cord. RAID addresses successive identifier 
entries in the record. 

3. In the ITABPRNT routine, AIB and AITAB 
point to the beginning and end of the re- 
cord currently being processed. For each 
record processed, AIB and AITAB are set by 
loading AIB with the address contained in 
the Address Table entry corresponding to the 
next sequential Program Block Number, and 
then setting AITAB = AIB + (the length of 
the ITAB record addressed by AIB, the length 
being contained in the heading entry). Iden- 
tities are printed out in alphabetical order, 
three on each line of printed text. To find 
the next identifier in alphabetical order, 
RAID and REGY are initial izedat the first 
identifier entry in the record. REGY then 
addresses the following identifiers in turn, 
each identifier being compared with the 
identifier addressed by RAID. When REGY 
addresses an identifier of higher alphabetical 
order than RAID, RAID is reset to REGY. 
This procedure is repeated until the end of 
the record is reached, so that RAID now ad- 
dresses the next identifier in alphabetical 
order. After the identifier has been proces- 
sed, it is deleted, by shifting the identifier 
entries at the bottom of the record upward by 
the entry length. 



* Area size specified by Area Size Table in Common Work Area. See Appendix 
VIM for the variation in area sizes as a function of the SIZE option. 

Figure 38. Private Area acquired by the Identifier Table Manipulation Phase 



IDENTIFIER SCAN (READBLK) 



The Identifier Scan routine reads an 
Identifier Table record from the SYSUT3 
data set into the work area provided, and 
searches the record for duplicate identifi- 
ers. The search is made by comparing each 
identifier in turn with all of the follow- 
ing identifiers. If a duplicate identifier 
is detected, Error No. 45 is recorded, by 
calling EU3. For statement heading and 
closing entries (identified by X'2B' in 
byte 6) are disregarded. As soon as all 
entries in the record have been scanned, 
the ALLOSTOR routine is entered. 

Records are read into the work area 
location specified in AITAB. The address 
in AITAB is stored in the Address Table 
(ATAB) entry corresponding to the Program 



Block Number of the record. The length of 
this entry is then added to the address in 
AITAB, so that AITAB will point to the 
location where the next record will be 
read. See Note 1 in Figure 38. 



STORAGE ALLOCATION (ALLOSTOR) 



ALLOSTOR allocates a specific number of 
object time storage bytes to each identifi- 
er represented in an Identifier Table 
record (excepting declared procedure, 
switch, and label identifiers), and records 
the relative address of the bytes allocated 
in the corresponding identifier entry. 
This relative address specifies the dis- 
placement in the Data Storage Area to be 
set up for the particular block or prcce* 
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dure at object time. When all the iden- 
tifiers in a record have been processed, 
the total number of bytes allocated is 
recorded in an entry of Program Block Table 
II (PBTAB2) , corresponding to the Program 
Block Number of the block or procedure. 
Control is returned to the READBLK routine 
(which reads in the next Identifier Table 
record) if a further record remains to be 
processed. This is indicated if the Pro- 
gram Block Counter SAVEPB, stepped up for 
every record processed, is less than the 
program block count recorded in PBN by the 
Scan I/II Phase. When SAVEPB=PBN, control 
is passed to the WRITITAB routine. 



type of iden- 



Eytes 




Precision 


4 




Short 


8 




Long 


4 






1 






MNOS + 6) 




Short 


U (N0S+6)+X 




Long 


[X=4 if NOS 


is 


odd, 


X=0 if NOS 


is 


even] 


8 






None 







The allocation for each 
tifier is as follows: 

Identifier 



Real variables 

Integer variables 
Boolean variables 
Arrays 



Formal parameters 
Declared labels, 

procedure and switch 

Identifiers 

NOS denotes the number of dimensions, 
diminished by one, recorded in the Iden- 
tifier Table entry for an array identifier. 
The area allocated for arrays provides 
space for a Storage Mapping Function (see 
Figure 62). A 24-byte field is reserved at 
the beginning of the Data Storage Area for 
every block and procedure (except in the 
case of <type>- procedures, for which the 
area reserved is 32 bytes) . 

Object time storage space is allocated 
with the aid of a set of displacement 
pointers named DP (Double Word Pointer) . 
WP (Word Pointer), HP (Half Word Pointer), 
and BP (Byte Pointer). These pointers are 
zero- set at the beginning of every Iden- 
tifier Table record. DP reflects the total 
displacement at any point in terms of 
double- words. It is incremented at double 
and full- word boundaries by 4 or 8 bytes, 
depending on the precision specified. 
Where the allocation to be made for an 
identifier is less than a double word, 
pointer BP, HP, or Wp may be set equal to 



DP and incremented by one, two, or four 
bytes, sc as to minimize the number of 
unused bytes. See Note 2 in Figure 38. 



WRITE IDENTIFIER TABLE (WRITITAB) 



WRITITAB is entered from AIICSTOR when 
all Identifier Table records have been read 
into main storage and processed. After 
repositioning SYSUT3 by a Type T CLOSE, 
WRITITAB transfers the Identifier Table 
records in the work area to the SYSUT3 data 
set, in ascending Program Block Number 
sequence. The address of the record cor- 
responding to the next sequential Program 
Block Number (in REGZ) is determined by 
reference to the Address Table (ATAB) entry 
for that Program Block Number. Control is 
passed to the ITABPRNT routine when the 
Program Block Number in REGZ equals the 
program block count stored in PBN by the 
Scan I/II Phase. 



PRINT IDENTIFIER TABLE (ITABPRNT) 



ITABPRNT generates a listing of the 
contents of the Identifier Table, contain- 
ing the external name of each identifier 
and indicating (by means of a system of 
coded symbols) the characteristics of the 
identifier. Output of the listing, whose 
I format is described in the OS ALGOL 
Programmer ' s Guide , is dependent on the 
SOURCE option being specified. 



The identifier groups are listed in 
ascending Program Block Number sequence, 
and within each group the identifiers are 
listed in alphabetical order. See note in 
Figure 38 . 



TERMINATION (CLOSE) 



CLOSE releases the main storage area 
occupied by the Identifier Table and the 
Address Table, and transfers control to 
Diagnostic Output Module IEX21 (see Chapter 
9). 
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CHAPTER 6: SCAN III PHASE (IEX30) 



PURPOSE OF THE PHASE 



The purpose of the Scan III Phase is to 
read the Modification Level 1 source text 
output by the Scan I/II Phase and to 
perform the following principal tasks: 



To replace the external names of all 
identifiers in the modified source 
text by their corresponding internal 
names in the Identifier Table (see 
Chapter 4) . 

To store constants in the source text 
in the Constant Pool # and to replace 
each constant by a five-byte internal 
name, referencing the location where 
the constant is stored, 

A constant is stored in the Constant 
Pool in fixed or floating point rep- 
resentation, depending on whether the 
constant is an integer number or a 
real number. TXT records of the con- 
stants stored in the Constant Pool are 
generated on the SYSLIN and/or SYS- 
PUNCH data sets, according to the 
Compiler options specified (see Item 
9) . 

To construct the For Statement Table 
(FSTAB) , indicating the critical fea- 
tures of every for statement in the 
source text. The For Statement Table ., 
which is transmitted to the two subse- 
quent phases via main storage, serves 
to determine the structure of the loop 
generated in the object code for each 
for statement. Among other things, 
the For Statement Table assigns each 
for statement to one of three loop 
classifications ( Normal Loop, Elemen- 
tary Loop, or Counting Loop) and indi- 
cates the character of the for list 
(e.g. if the for list contains a step 
or while element) . It also indicates 
if subscript optimization is to be 
performed for optimizable array sub- 
scripts in a for statement. 

To construct the Subscript Table 
(SUTAB) listing,, under each for state- 
ment, all subscript expressions of a 
defined character occurring in the 
iterated part of the for statement. 
The expression must be of the type 
±F*V±A, where V is the controlled 
variable, and the factor F and addend 
A must be integer variables or con- 
stants. 



The Subscript Table is transmitted (on 
the SYSUT3 data set) to the Subscript 
Handling Phase, in which optimizable 
subscript expressions are identified 
and copied into the Optimization Table 
(OPTAB) for transmission to the Compi- 
lation Phase. To be optimizable, no 
assignment may be made in the for 
statement to the factor F or the 
addend A in the subscript expression. 
The test for opt imiz ability is per- 
formed in the Subscript Handling Phase 
by comparing the factor and addend 
with the variables listed in the Left 
Variable Table (see next item). 

5. To construct the Left Variable Table 
(LVTAB) , listing,, under each for 
statement,, the integer left variables 
in the iterated part of the for state- 
ment. The Left Variable Table is 
transmitted (on the SYSUT3 data set) 
to the Subscript Handling Phase. It 
is used in identifying subscript 
expressions listed in the Subscript 
Table which are not optimizable (see 
preceding item) . 

6. To generate a transformed source text 
(called Modification Level 2). The 
principal change made in this version 
of the source text consists in the 
replacement of externally represented 
identifiers and constants by five-byte 
internal names (see items 1 and 2). 
Other changes are set forth under 
"Modification Level 2 Source Text". 

7. To replace the external names of 
standard mathematical functions and 
input/output procedures by five-byte 
internal designators. The internal 
designators are stored in the Iden- 
tifier Table work area by the Initial- 
ization routine,, before the first 
record of the Identifier Table is read 
into main storage from the SYSUT3 data 
set. 

8. To recognize syntactical errors in the 
source text and to store appropriate 
error patterns in the Error Pool. The 
contents of the Error Pool are printed 
out in the form of diagnostic messages 
by the Error Message Editing Routine 
in the immediately following Diag- 
nostic Output Module (IEX31). 

9. To generate TXT records of the Con- 
stant Pool on the SYSLIN and SYSPUNCH 
data sets, if the LOAD and/or DECK 
options have been specified- 



74 



SCAN III PHASE OPERATIONS 



The primary functions of the Scan III 
Phase are: 



1. To replace externally represented 
operands in the Modification Level 1 
text by their corresponding internal 
names in the Identifier Table; 

2. To store constants found in the Modi- 
fication Level 1 text in the Constant 
Pool and to replace the constants by 
internal names; and 

3. To detect critical logical features of 
all for statements and record these in 
the For Statement Table. A closely 
related function is to list integer 
left variables and linear subscripts 
of arrays in for statements, in the 
Left Variable and Subscript Tables. 

The diagram in Figure 39 illustrates the 
main operations performed in the Scan III 
Phase (the overall logic of the phase is 
indicated in Flowcharts 044 and 04 5 in the 
Flowchart Section) . The following descrip- 
tion provides a brief comment on the 
diagram. 

The modified source text is scanned, in 
the first instance, by the GENTEST routine, 
which branches to approximately 30 other 
routines, according to the character iden- 
tified in the source text. Control is in 
every case returned to GENTEST after the 
required processing has been completed. 

Modification Level 1 text records are 
read from the SYSUTl data set by the ICHA 
subroutine, which is called by all routines 
on detection of the record- end operator 
Zeta . The Modification Level 2 text 
records are output on SYSUT2 by the OUCHA 
subroutine on call from all routines which 
transfer operators and internal names to 
the modified text. 



OPENING AND CLOSE OF BLOCKS AND PROCEDURES 



At the opening of a block or procedure 
(indicated by the operators Beta , Pi or 
Phi ) , the next sequential Identifier Table 
record is read into the work area provided. 
Records are read from the SYSUT3 data set 
by the ITABMOVE subroutine, on call from 
BETA or PI PHI. When the end of the current 
(embracing) block or procedure is reached 
(indicated by the operator Epsilon ) , the 
corresponding Identifier Table record in 



the work area is deleted by EPSILON. This 
procedure insures that the Identifier Table 
work area at all times contains those 
identifiers which have been validly 
declared or specified in the current block 
or procedure, as well as in all enclosing 
blocks or procedures. The handling of the 
Identifier Table is described more specifi- 
cally in a later section. 



IDENTIFIER HANDLING 



A letter indicates the beginning of an 
externally represented identifier. The 
LETTER routine scans the following charac- 
ters, and when the end of the identifier 
has been found, branches to IDENT. IDENT 
initiates a comparison (between the iden- 
tifier in the source text and the external 
names contained in the entries in the 
Identifier Table work area), designed to 
locate an entry for the same identifier 
declared or specified in the current (or an 
enclosing) block or procedure. If no 
matching identifier is found in the Iden- 
tifier Table, the identifier in the source 
text is undefined: an error is recorded in 
the Error Pool, the Compiler enters Syntax 
Check Mode (Chapter 9) , and, after an 
all-purpose internal name has been trans- 
ferred to the Modification Level 2 text, 
control is returned to GENTEST. If, howev- 
er, a matching identifier is found in the 
Identifier Table (indicating that the iden- 
tifier was duly declared or specified) 
control is passed to FOLI, which branches 
to one of four routines (NOCRI, PROFU, 
SWILA, and CRITI), according to the charac- 
ter of the identifier, indicated by the 
characteristic in the Identifier Table 
entry . 

The main function of the NOCRI # PROFU, 
SWILA, and CRITI routines is to determine 
if the identifier in the source text is 
contained in an embracing for statement 
(that is, in the for list or in the 
iterated part of an embracing for 
statement); and if so, to make entries in 
the Left Variable and/or critical identifi- 
er Tables; and to classify the embracing 
for statement (s) in the For Statement 
Table, according tc whether the presence of 
the particular type of identifier in the 
for statement affects the logical structure 
of the code to be generated for the for 
statement (s) in the Compilation Phase. The 
processing of for statements is discussed 
in more specific detail in a later secticn. 
The SWILA routine, entered if the identifi- 
er is a label or a switch, serves to verify 
the validity of a branch. 
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SCAN ID PHASE (IEX30) 




REALHAN and OMEGA. 



Figure 39. Scan III Phase* 

Diagram illustrating the functions of the principal constituent routines 
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NOCRI, PROFU, SWILA, and CRITI all 
return control to LETTER (directly if the 
identifier is not contained in a for 
statement) . LETTER thereafter transfers 
the identifier's five- byte internal name to 
the Modification Level 2 text f replacing 
the external name in the Modification Level 
1 text, and returns control to GENTEST. 
The internal name is obtained from the 
Identifier Table entry previously located 
by IDENT. An overall survey of the 
identifier-handling routines can be found 
in the Flowchart Section with the aid of 
the Index of Routines in Appendix XI. 



optiitiizable f that is,, if the expression is 
a linear expression satisfying certain 
constraints (defined in a later section). 
If the subscript expression is optimizable, 
the terms of the expression, together with 
their signs and a serial number identifying 
the for statement, are entered in the 
Subscript Table. 



HANDLING OF OTHER OPERATORS 



NUMBER HANDLING 



Constants in the Modification Level 1 
text are handled, in the first instance, by 
the DIGIT19, DIGITO, DECPOIN, and SCAFACT 
routines. The function of these routines, 
in the case of real constants (e.g. 
457.725 or 0.0095*86), is to represent the 
constant as the product of a mantissa (with 
the decimal point immediately to the left 
of the first significant digit) and a power 
of ten. Thus the constants in the illus- 
trations above would be represented as 
0.457725 x 10 3 and 0.95 x 10 8 *. When this 
transformation is complete, control is 
passed to the REALCON routine, the mantissa 
being transmitted in a storage location and 
the exponent in a register. REALCON con- 
verts the constant, represented by the 
mantissa and exponent, to floating point 
representation in a register. Thereafter, 
control is passed to the REALHAN routine, 
which stores the constant in the Constant 
Pool and transfers a five- byte internal 
name, referencing the constant's storage 
location, to the Modification Level 2 text. 

Integer constants are handled by the 
DIGIT19 and/ or DIGITO routines. When the 
last digit in the constant has been locat- 
ed, control is passed to the INTCON rou- 
tine. INTCON converts the constant to 
fixed point notation in a register, and 
exits to INTHAN, which stores the constant 
in the Constant Pool and transfers a five- 
byte internal name to the Modification 
Level 2 text. 



For a majority of the operators in the 
Modification Level 1 text, the processing 
is limited to the transfer of the operator 
to the Modification Level 2 text (by 
OTHOP) . In the case of the operators For 
and Do, a switch is turned on to indicate, 
respectively, entry to and exit from a for 
list, while the appearance of the operators 
Step , While , Power , or / in a for list is 
recorded in the appropriate entry of the 
For Statement Table. The Apostrophe opera- 
tor indicates that the internal name of a 
character string or a logical value fol- 
lows, and in this case the internal name 
alone is simply transferred to the Modi- 
fication Level 2 text. 



PHASE TERMINATION 



The Scan III Phase is terminated on 
recognition of the closing operator Omega . 
The OMEGA routine writes out the last 
records cf the Subscript and left Variable 
Tables, releases main storage,, and trans- 
fers control (XCTL) to Diagnostic Output 
Module IEX31 (Chapter 9). 



PHASE INPUT/OUTPUT 



ARRAY SUBSCRIPT HANDLING 



Subscript expressions, identified by the 
operators [ , Comma and 3 , are handled by 
the OPBRACK, COMMA, and CLOBRACK routines. 
If a subscript expression relates to an 
array in a for statement, an analysis of 
the subscript expression is initiated to 
determine if the subscript expression is 



Figure 40 pictures the data input to and 
output from the Scan III Phase. The figure 
also indicates the tables transmitted via 
main storage. 
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* Source text transmitted in main storage if it 
occupies less than a full buffer. 





Figure 40. Scan III Phase input/output 

The Modification Level 1 source text is 
input from the SYSUT1 data set, unless the 
text occupies less than a full buffer. In 
the latter case the modified source text 
will have been transmitted from the Scan 
I/II Phase in main storage. Similarly, the 
Modification Level 2 source text is output 
on SYSUT2 or transmitted via main storage, 
depending on whether the text occupies more 
than or less than a full buffer. 

Input of the Identifier Table (ITAB) 
proceeds in parallel with output of the 
Subscript Table (SUTAB) and the Left Varia- 
ble Table (LVTAB) on the same data set 
(SYSUT3). ITAB input is handled by the 
ITABMOVE subroutine, while SUTAB and LVTAB 
output is handled by the WRITE subroutine. 
SUTAB and LVTAB records (fixed length = 
buffer size) are output in random order, 
accordingly as the respective buffer is 
filled, starting at the SYSUT3 data set 
address immediately following the last ITAB 
record output by the Scan I/II Phase. The 
data set address is saved at initialization 
and transmitted to the Subscript Handling 
Phase in readiness for input of the first 
SUTAB/LVTAB record. To enable the records 
to be differentiated in the Subscript Han- 
dling phase, each output record contains a 
leading four- byte key (SUTB in SUTAB 
records, LVTB in LVTAB records). Before 
every input and output operation on SYSUT3, 
a test is made in both the ITABMOVE and 



WRITE subroutines, to determine if the 
operation to be performed differs from the 
last operation (i.e. input of ITAB or 
output of SUTAB/LVTAB). If the operation 
to be performed is the same as the last 
performed operation, input/output is ini- 
tiated directly from or to the current data 
set position. If, however, the operation 
to be performed differs from the last 
performed operation, the data set position 
of the last transferred record is saved 
(with the aid of a NOTE macro) in one of 
the pointers NOTER or NOTEW (see Figure 
41); the data set is then repositioned (by 
a POINT macro) to the address previously 
saved in NOTER/NOTEW; and input/output is 
started at the data set address to which 
SYSUT3 is positioned. 



SYSUT3 



NOTER 
(data set- 
address of 
next ITAB 
record to 
be read) 

NOTEW 
(data set 
address for 
next output 
operation) 



Figure 41. 





__ITAB-- 




SUTAB 




LVTAB 




SUTAB 







Notes: 

NOTER is updated by the WRITE sub- 
routine when the data set must be re- 
positioned from an ITAB record to the 
next free record, for output of a SUTAB 
or LVTAB record. 



NOTEW is updated by the ITABMOVE 
subroutine when the data set must be re- 
positioned from the end of the last writ- 
ten LVTAB or SUBTAB record, to the 
beginning of the next ITAB record to be 
read into main storage. 



Function of pointers NOTER and 
NOTEW in input/output opera- 
tions on the SYSUT3 data set 



PROCESSING OF THE IDENTIFIER TABLE 



A description of the entries in the 
Identifier Table (ITAB) is given in Chapter 
4. See also Appendix II. 

In the Scan III Phase, externally rep- 
resented operands in the source text are 
replaced by their corresponding internal 
names constructed in the Identifier Table. 

The processing of the Identifier Table 
is approximately as follows. A new ITAB 
record is read into a work area from the 
SYSUT3 data set, as soon as a new block or 
procedure is encountered in the Modifica- 
tion Level 1 source text. When the end of 
a block or procedure is reached, the cor- 
responding record in main storage is 
erased. In this way, the work area at all 
times contains those identifiers which have 
been duly declared (whether in the current 
scope or in an enclosing scope) and which 
may validly occur as operands at any given 
point in the source module. Any operand in 
the modified source text not represented by 
an entry in the work area represents an 
undeclared identifier. 
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When an operand is recognized in the 
source text, it is compared with each of 
the ITAB entries in the work area, begin- 
ning with the last, until an entry is found 
which contains the same external name as 
the operand in the source text. The inter- 
nal name in the ITAB entry is then trans- 
ferred to the Modification Level 2 text in 
the output buffer, replacing the externally 
represented operand in the Modification 
Level 1 text. If no ITAB entry is found to 
match the operand in the source text, an 
all-purpose internal name is transferred to 
the output text, Error No. 81 is recorded, 
and the Compiler enters Syntax Check Mode 
(Chapter 9). 

An ITAB record is read into the work 
area on recognition of any of the operators 
Beta , Pi or Phi , opening a block or a 
procedure. Input is handled by the ITAB- 
MOVE subroutine on call from the BETA and 
PIPHI routines. (Records are arranged on 
the data set in ascending program Block 
Number sequence — the same sequence as 
blocks and procedures are opened (and 
numbered) in the source module) . The cor- 



responding record is erased on detection of 
the closing operator Epsilcn . The record 
is erased (by the EPSILON routine) by 
resetting a pointer (ZCURITEN) tack to the 
end of the preceding record. Figure 4 2 
illustrates the handling cf the Identifier 
Table in relation to the block structure of 
a hypothetical source module. 



CLASSIFICATION OF FOR STATEMENTS 



Every for statement in the source module 
is assigned to one of three main loop 
classifications: Normal Loops, Elementary 
Loops, and Counting Loops. The loop clas- 
sification, which is recorded in the For 
Statement Table, specifies the logical 
structure of the code generated in the 
Compilation Phase for each for statement. 
The structure of the object code generated 
for each of the various loop types is 
illustrated in Chapter 8 (Figures 66-72). 



Contents of Identifier Table Work Area in the Scan III Phase at Differing Points In Source Module 
(Letters refer to labelled positions in block diagram at left) 



Source Module Block Structure 



At Initialization move 
in standard procedure 
designators and read P. B. 1 

— PB1 (CHECK read-in of P.B.I; 

set ZCURITEN to end of 

P.B.I; 

start read-in of P.B.2) 

PB2 (CHECK read-in of P.B.2; 

set ZCURITEN to end of 

P.B.2; 

start read -in of P.B.3) 

r- PB3 (CHECK read-in of P.B.3; 
set ZCURITEN to end of 
P.B.3; 
start read-in of P.B.4) 



(Delete P.B.3 by resetting 
ZCURITEN to end of P.B.2) 

PB4 (CHECK read-in of P.B.4; 
move P.B.4 to end of P.B.2; 
set ZCURITEN to end of 
P.B.4) 



L - (Delete P.B.4 by resetting 

ZCURITEN to end of P.B.2) 



I (Delete P.B.2 by resetting 

ZCURITEN to end of P.B.I) 







a) 




N 


Std. 
Proc. 
Desig- 
nators 


ZCURITE 


P.B.I 


ZITREC 




P.B.2 



(FREEMAIN) 





b) 




Std. 
Proc. 
Desig- 
nators 




P.B.I 


ZCURITEN 


P.B.2 


ZITREC 


P.B.3 





c) 




Std. 
Proc. 
Desig- 
nators 




P.B.I 




P.B.2 


ZCURITEN 


P.B.3 


ZITREC ~~ 


P.B.4 



ZCURITEN 



d) 



Std. 
Proc. 
Desig- 
nators 



P.B.I 



(obso- 
lete) 



ZITREC 



P.B.4 



jZCURITEM 
I ZITREC 



e) 



Std. 
Proc. 
Desig- 
nators 



P.B.I 



Std. 
Proc. 
Desig- 
nator^ 



ZCURITEN 



f) 



Std. 
Proc. 
Desig- 
nators 



ZCURITEN 



_SL 



I I 

J 1 

l(obso- I 
I lete) 



(ZITREC) - *! 



I 



(obso- 
lete) 



j(ZITREC) 



I I 



I 
]p.B.2 



(obso- 
| lete) 

—I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
1 



(see note 3) 



At the opening of a block or procedure, BETA (or PIPHI) calls the ITABMOVE subroutine, which CHECKs read-in of the Identifier Table 
record for the newly entered block, and then sets pointer ZCURITEN so that it points to the last identifier entry in the record. The length 
by which ZCURITEN is incremented is contained in bytes and 1 of the record' s heading entry. The length is stored at ZCURITLE, after 
the length of the preceding record (in ZCURITLE) has been stored in bytes 6 and 7 of the heading entry. At the same time, a READ macro 
is executed which starts read-in of the record for the next sequential block or procedure. Pointer ZITREC points to the position where 
this record will be stored (eleven bytes beyond ZCURITEN). 

At the close of a block or procedure, EPSILON resets pointer ZCURITEN to the end of the preceding Identifier Table record (which 
corresponds to the reentered block or procedure), thus erasing the identifiers declared or specified in the newly closed block. The 
length by which ZCURITEN is decremented is the length of the closed Identifier Table record, contained in ZCURITLE. 
In addition to the operations explained in Item 1, a test is made, at the opening of a block or procedure, to determine if ZITREC > 
ZCURITEN +11 . The affirmative case indicates that the Identifier Table record for the newly entered block is separated from the record 
for the enclosing block by an obsolete record, that is, an Identifier Table record of a preceding (closed) block or procedure. In this 
case, the entire record for the newly entered block or procedure is moved upward so as to overlay the obsolete record and adjoin the end 
of the record for the embracing block. The length of this move is the length of the obsolete record, which is contained in the heading 
entry of the record to be moved. 



Figure 42. Diagram illustrating the handling of Identifier Table (ITAB) records 
in the ITAB Work Area 
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Normal Loop 

A for statement is classified a Normal 
Loop if any one of the following condi- 
tions is detected: 

1 • The for statement contains a proce- 
dure identifier (other than a stand- 
ard mathematical function or a 
standard output procedure). 

2. An assignment is made in the for 
statement to any identifier in the 
for 1 ist ( • FOR '.....' DO ' ) , excepting 
the controlled variable. 



An array element occurs in 
list. 



the for 



list and in the 
statement). 



iterated part of 



for 



Detection of Operators in For List 



The presence of any of the operators 
Step , While , or Power in a for list is 
detected by the routines STEP, WHILE, and 
DIP0W. Their presence is recorded by bit 
settings in the for statement's classifica- 
tion byte in the For Statement Table. 



4. The entries in the Critical Iden- 
tifier Table (CRIDTAB), representing 
the identifiers in the for list, are 
deleted by reason of CRIDTAB over- 
flow. 

Elementary Loop 

A for statement is classified an Elem- 
entary Loop if any one of the following 
conditions is detected: 



1. 
2. 
3. 



A real 
list. 



operand occurs in the for 



Any one of the operators While or 
Power occurs in the for list. 

The controlled variable occurs in 
the for statement (other than in 
optimizable subscript expressions). 

A goto statement implying a branch 
out of the for statement, is con- 
tained in the iterated statement. 



Counting Loop 

A for statement is classified a Count- 
ing Loop if it does not qualify as a 
Normal Loop or as an Elementary Loop. 



Recognition of Identifiers in For 
Statements 



The recognition of the classes of iden- 
tifiers in a for statement and their posi- 
tion in the for statement as the controlled 
variable and/or a left variable in the 
iterated statement, is handled by the rou- 
tines entered from F0LI. see "Identifier 
Handling" and Flowchart 56. 

FOLI's function is to determine the 
class of an identifier and to branch tc a 
corresponding routine- The identifier 
class is determined by inspection of the 
Special Use Bits of the characteristic 
(Figure 9) Ln the Identifier Table entry 
corresponding to the externally represented 
identifier in the Modification Level 1 
text. The routines entered from FOLI, 
according to the class cf identifier recog- 
nized, are as follows: 

NOCRI - a type-declared simple variable cr 
an array 

SWILA - a label or switch 

PROFU - a procedure or formal parameter 

CRITI - a critical identifier 



PROCESSING OF FOR STATEMENTS 



The processing of for statements in the 
Scan III Phase consists in the detection of 
the logical features listed above under the 
three loop classifications, and in reg- 
istering these features in the for 
statement's classification byte in the For 
Statement Table. 

Processing operations may be divided 
into (a) the detection of operators in for 
lists; (b) the recognition of identifiers 
in for statements (that is, in both the for 



An identifier is termed a critical iden- 
tifier if it occurs in the for list of an 
embracing for statement, provided the iden- 
tifier is a declared real, integer, or 
boolean simple variable. As soon as an 
identifier of this kind is encountered in a 
for list, the Special use Bits of the 
characteristic in the corresponding Iden- 
tifier Table entry, originally equal to 
binary 00, are set to binary 11, thus 
marking the identifier critical and facili- 
tating- the subsequent recognition of criti- 
cal identifiers in the iterated part of the 
for statement. A critical identifier's 
Special Use Bits are reset to binary 00 
only at exit from the fcr statement. 
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NOCRI determines, by reference to a 
switch byte set to various values on recog- 
nition of the operators For and _Io, if an 
identifier occurs in a for list. If it 
does, and if the identifier is a type 
declared simple variable, NOCRI makes an 
entry for the identifier in the Critical 
Identifier Table (CRIDTAB) , and then marks 
the identifier "critical" in the Identifier 
Table, in the manner explained above. 
These operations are performed by the CRIMA 
subroutine, which also classifies the 
enclosing for statement, according to the 
character of the particular identifier. 
NOCRI also makes an entry for the identifi- 
er in the Left Variable Table by call to 
LETRAF, if the identifier occurs as an 
integer left variable in the for statement. 

SWILA, which is entered in the case of a 
switch or label, classifies the enclosing 
for statement (s), if any, if a jump is 
detected out of the for statement (s) . 

PROFU, which is entered in the case of a 
procedure or formal parameter, classifies 
the embracing for statement (s) , if any, 
Normal Loops . 



as 



CRITI, which is entered in the case of a 
critical identifier, classifies the enclos- 
ing for statement (s) according to whether 
an assignment is made to identifiers in the 
for list, among other things. 

A for statement may be reclassified if 
the controlled variable occurs inside a 
nonlinear subscript expression. This con- 
dition is detected by the subroutines 
(called by OPBRACK, COMMA, and CLOBRACK) 
which process array subscript expressions 
in for statements. 



Optimization is possible if the follow- 
ing conditions are satisfied: 

1. The subscript expression is optimiza- 
ble, i.e., of the form ±F*V±A, where 
the factor F is an integer variable or 
constant, V is the controlled variable 
in the for statement, and the addend A 
is an integer variable or constant. 
Optimizable subscript expressions are 
entered in the Subscript Table. 

2. The for statement is a Counting Loop 
or an Elementary Loop in which nc 
assignment is made in the iterated 
statement to the controlled variable. 

From the foregoing, it is apparent that 
subscript optimization is performed only in 
the case of Counting Loops and Elementary 
Loops . 

A for statement may or may not contain 
an array identifier. If an array does not 
occur in a for statement, subscript optimi- 
zation does not come into question. If, 
however, one or more arrays occur in a for 
statement, subscript optimization may be 
possible, depending on the for statement's 
loop classification and on whether the 
subscript expression is of the type speci- 
fied above. 

Each for statement's classification byte 
in the For Statement Table, specifies if 
optimization is to be performed for those 
subscript expressions in the for statement 
which are optimizable. 

Subscript expressions are processed by 
the OPBRACK, COMMA, and CLO BRACK routines. 



OPTIMIZABLE SUBSCRIPT EXPRESSIONS 



FOR STATEMENT TABLE (FSTAB) 



A subscript expression of any array may 
be described as a formula which specifies a 
displacement (usually in terms of one or 
more variables). If a subscripted variable 
occurs in a for statement, and if the 
controlled variable occurs as a variable in 
one or more subscript expressions, each 
subscript expression will specify a differ- 
ent displacement for every value assigned 
to the controlled variable (and hence for 
every cycle of the for loop) . 

The optimization of a subscript expres- 
sion in a for statement consists in the 
generation of object code which precalcu- 
lates (a) the initial value of the sub- 
script, and (b) a constant increment to be 
added in each cycle of the for loop. 
Arrays and subscript optimization are dis- 
cussed in detail in Chapter 8. 



As transmitted (via main storage) to the 
Subscript Handling Phase (and thence to the 
Compilation Phase), the For Statement Table 
(FSTAB) contains a classification byte for 
each for statement in the source module. 
The classification byte indicates: 



1. 



2. 



The for statement's 
tion. 



loop classifica- 



The presence of the operators Step and 
While in the for list. 



3. Whether or not optimization is to be 
performed for optimizable subscript 
expressions in the for statement. 

The foregoing information is indicated 
by bit settings in each half of the classi- 
fication byte, as follows: 
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First Half 
(bits 0-3) : 


X'F' 


For statement is a 
Normal loop 




X'8' 
X'2' 


For statement is an 
Elementary Loop 



X'O' 



X'4' 



For statement 
Counting Loop 



is 



Subscript optimization 
is not to be performed 



LVTAB is used in the Subscript Handling 
Phase to identify those subscript expres- 
sions listed in the Subscript Table which 
are optimizable. 



Entries are made in LVTAB by the LETRAF 
subroutine. LVTAB is output to the SYSUT3 
data set by the WRITE subroutine # on call 
from NOCRI or CRIMA. 



Second Half X'8' 
(bits 4-7) : 



X'4' 



For list contains a 
step element 

For list contains a 
while element (in this 
case, the for state- 
ment is classified an 
Elementary Loop) . 



A maximum of 255 bytes is provided for the 
For Statement Table in the Common Work 
Area. 

The classification byte for a given for 
statement may be modified or referenced by 
several routines in the Scan III Phase, 
including WHILE, STEP, and DIPOW, as well 
as the routines entered from FOLI. 



SUBSCRIPT TABLE (SUTAB ) 



As transmitted to the Subscript Handling 
Phase, the Subscript Table (SUTAB) contains 
an entry for every cptimizafcle subscript 
expression found in the iterated part of a 
for statement. 



Entries are made in SUTAB by the SUTA- 
BENT subroutine on call from SUSCRITE 
(which is called in turn by the CONMA and 
clobrack routines). 



SUTAB is output on the SYSUT3 data set 
(in parallel with output of LVTAB and input 
of ITAB) by the WRITE subroutine. 



LEFT VARIABLE TABLE (LVTAB) 



As transmitted to the Subscript Handling 
Phase, the Left Variable Table (LVTAB) 
contains an entry for every integer left 
variable occurring in the iterated part of 
for statements in which subscript optimiza- 
tion is possible. In the case of a series 
of nested for statements, the entries made 
for each for statement include all integer 
left variables in the enclosed for 
statement (s) , including the controlled 
variable(s) . 







f- 




_T 




1 
1 


<FSN> 


1 
1 


<DSA address of 
left variable> 


L- 




-J. 





<FSN> 



<DSA address > = 



Figure 43. 



<Serial For Statement 
Number > 

<Last three bytes of 
internal name, containing 
Program Block Number and 
displacement in object time 
Data Storage Area> 



Entry in Left Variable Table 
(LVTAB) 



CRITICAL IDENTIFIER TABLE (CRIDTAB) 



The Critical Identifier Table provides a 
temporary record of the critical identifi- 
ers in the embracing for statement (s), that 
is, the nonarray identifiers found in the 
for list(s) of the embracing for 
statement (s) . it is used primarily in 
determining if an identifier in the iterat- 
ed part of a for statement also occurs as 
the controlled variable in the for list. 
It also provides a means of identifying the 
for statement, in whose for list a critical 
identifier occurs. The latter function 
assumes importance in the case of a series 
of nested for statements, where an assign- 
ment is made to a critical identifier which 
occurs in the for list(s) of one or more 
enclosing for statements. This condition 
affects the logic of the enclosing for 
statement (s) , and must be reflected in the 
For Statement Table. 
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1 4 7 10 11 12 in 

r T T T 1 T T 1 

|<FSN>|<DSA address of j <DSA address of|<DSA address of |<X> |<RN>|<Rel. addressj 
I j array identifier>| factor> | addend> | j I of left J 
|| | | III bracket in | 



I I 



| o/p buffer> | 
-A j 



<FSN> 

<DSA address> 



<X>Bit 
1 
2 
3 



4-7 



<RN> 



= <For Statement Number > 

= <Last three bytes of identifiers 
internal name containing Program 
Block Number and displacement 

= <Sign of factor: = +, f 1 = -> 
= <Sign of addend: = + w 1 = -> 

= (used only in Subscript Handling 

Phase) 
= <Positional number of subscript> 

= <Output record number in which the 
left bracket following the array 
identifier was put out> 



Figure 44. Fourteen- byte Subscript Table entry 

for an optimizable array subscript expression in a for statement 



4 

"T" 



5 

"T" 



7 

■T" 



r t 

|<FSN> | <DSA address of |<Flag>| <Address 1>| <Address 2>| 
j | critical identifier> | | | | 



<FSN> 

<DSA address> = 

<Flag>: Bit on = 

Bit 1 on = 

Bit 1 off = 
Bit 2 on = 
Bit 2 off = 



= <For Statement Number> 

= <Last three bytes of critical 

identifier's internal name> 

Identifier is controlled variable 

CRIDTAB contains a preceding entry for 

same identifier 

This entry is the first or only entry 

for the identifier 

CRIDTAE contains a succeeding entry for 

the same identifier 

This entry is the last (or only) entry 

for the identifier 



<Address 1> = 

First or only entry: 

<Relative address of critical 
identifier's ITAB entry> 
Second or subsequent entry: 

<Relative address of preceding CRIDTAB 
entry for same identifier> 

<Address 2> 

Any entry except the last: 

<Relative address of succeeding CRIDTAB 
entry for same identif ier> 
Last or only entry: 

(Not used) 

Figure 45, Entry in Critical Identifier Table (CRIDTAB) 



Chapter 6: Scan III Phase 



83 



An entry is made in CRIDTAB by the CRIMA 
subroutine as soon as it is determined that 
an identifier is contained in a for list. 
At exit from a for statement, all entries 
for identifiers in the for list are delet- 
ed. If the same identifier occurs in the 
for lists of a series of nested for state- 
ments , each entry for that identifier is 
flagged to show that there is a preceding 
and/or succeeding entry for the same iden- 
tifier. If a for statement is classified a 
Normal Loop, all CRIDTAB entries for iden- 
tifiers in the for list are deleted (by the 
DELCRIV subroutine) . In the event of CRID- 
TAB overflow, the entries for the outermost 
for statement are deleted (by the CRIFLOW 
subroutine) . 



As indicated above, CRIDTAB lists the 
identifiers in the for list(s) of the 
embracing for statement (s), each entry 
indicating, first, if the identifier is the 
controlled variable, and second,, if the 
identifier occurs in any other embracing 
for statement(s) . As soon as it is detect- 
ed (by NOCRI) that an identifier occurs in 
a for list, the Special Use Bits (see 
Figure 9) in the corresponding Identifier 
Table (ITAB) entry for the identifier are 
set to binary 11, to indicate that the 
identifier is a critical identifier, and an 
entry is made for the identifier in CRID- 
TAB. The Special Use Bits remain set to 
binary 11 until exit from the for state- 
ment, or until the for statement is classi- 
fied a Normal Loop, at which time they are 
reset to their original value by the CRIFO- 
DEL routine. When an operand is encoun- 
tered in the iterated statement (or in the 
same for list) whose corresponding ITAB 
entry shows that the identifier is a criti- 
cal identifier, control is passed by FOLI 
to the CRITI routine. CRITI locates the 
corresponding entry in CRIDTAB, and then 
proceeds to modify the classification byte 
(in FSTAB) of the for statement (s) corres- 
ponding to each entry for the identifier, 
according to the particular circumstances 
surrounding the identifier in the iterated 
statement and in the for list. These may 
show, for example, that the identifier 
occurs as the controlled variable or as 
some other variable in the for list; that 
the identifier appears to the left of, or 
to the right of, an assignment operator in 
the iterated statement; or that the iden- 
tifier appears only in a subscript expres- 
sion. Depending on the circumstances iden- 
tified, the corresponding for statement's 
classification byte may be modified to 
change the loop classification, or to spec- 
ify that subscript optimization is or is 
not possible. 



ARRAY IDENTIFIER STACK (ARIDSTAB) 



An entry is made in the Array Identifier 
Stack for an array identifier in a for 
statement when the opening bracket follow- 
ing the identifier is encountered. The 
entry is deleted when the bracket which 
closes the array list is found. In a 
series of nested arrays (as, for example: 
(ARRAY1CK, ARRAY2EL, ARRAY3 [M,N] ] ] ) , an 
entry is made for each array, as soon as 
the opening bracket for the particular 
array is recognized. The stack entries are 
released as the relevant closing bracket is 
identified, the last entry for the inner- 
most nested array being released first, the 
entry for the embracing array being 
released second, and so en. 



r t t t 1 

|<DSA address of | <X> j <RN> |<Address>| 
| array identifier>| j | | 
l x ± x J 



<DSA Address> = 



<X> 



<RN> 
<Address> 



<Last three bytes of 
array identifier's 
internal name> 
<Positional number of 
subscript component in 
which the array occurs> 
(set tc X'OO* if the 
array does not occur in 
an embracing array 
list) 

<Output record numher> 
<Relative address of 
opening bracket in the 
output record> 



Figure 46. Entry for an array identifier 
in the Array Identifier Stack 
(ARIDSTAB) 

The Array Identifier Stack provides tem- 
porary storage for information concerning 
an array in a for statement. The recorded 
information may subsequently be transferred 
to one or more entries in the Subscript 
Table, depending on whether the subscript 
expression (s) in the array list are optimi- 
zable. A subscript expression containing 
an array is not optimizable, but the sub- 
script expressions of the nested array may 
be optimizable. 



MODIFICATION LEVEL 2 SOURCE TEXT 



The Scan III Phase generates a second 
transformation of the source text, called 
Modification Level 2 (the first transforma- 
tion being that cf Modification Level 1, 
produced by the Scan I/II Phase) . The 
Modification Level 2 text, which forms the 
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primary input to the Compilation Phase, is 
transferred to the SYSUT2 data set, unless 
it occupies less than a full buffer, in 
which case it is transmitted via Source 
Text Buffer 1. The principal changes 
reflected in the Modification Level 2 
source text, as compared to Modification 
Level 1 , are as follows : 

1. All externally represented operand 
identifiers are replaced by five -byte 
internal names (Appendix II) . The 
internal names are obtained from the 
Identifier Table. Undeclared iden- 
tifiers are replaced by an all-purpose 
internal name. 

2. Constants are replaced by five-byte 
internal names specifying the type of 
constant (real or integer) and the 
field in the Constant Pool where the 
constant is stored, and the Constant 
Pool Number. Defective constants are 
replaced by an all-purpose internal 
name (Appendix II) . 

3. The two-byte Identifier Group Number 
following the operators which mark the 
opening and closing of blocks, proce- 
dures, and for statements in the Modi- 
fication Level 1 text (see "Scope 
Identification" in Chapter 4) is elim- 
inated in the Modification Level 2 
text. 

4. The Apostrophe preceding the internal 
names of character strings and boolean 
constants is removed, but the internal 
names are transferred to the Modifica- 
tion Level 2 text unchanged. 

5. The operator Rho (inserted by the Scan 
I/II Phase at the beginning of a 
record when a parameter delimiter 
extends across a buffer boundary) is 
removed, together with the preceding 
letter string. The right parenthesis 
at the beginning of the letter string 
is replaced by a Comma . 



SWITCHES 



The following switches are used 
routines of the Scan III Phase. 



in the 



ZFQRTEST 

X'OO' (set to X^O' on detection of 
operator Do) indicates that the 
source text currently being processed 
is not part of a for list. 

X'CO' (set to X'COV on recognition of 
operator For ) signifies that a for 
statement has been entered. 



X'80' (set to X'80' by CRINA after the 
controlled variable in a for state- 
ment has been recognized) signifies 
that a for list following the con- 
trolled variable is being processed. 



10 BYTE (Bits 



thru 3 are named as 



follows. They are tested and turned on 
or off in the ITABMOVE, WRITE, and 
CHECK subroutines). 

READM=1 signifies that the last SYS13T3 
operation was a READ. 



WRITEM=1 signifies that the 
SYSUT3 operation was a WRITE. 



last 



READC=1 signifies that the last SYSUT3 
operation was a CHECK following a 
READ. 

WRITEC=1 signifies that the last 
SYSUT3 operation was a CHECK follow- 
ing a WRITE. 

SCATEST (Bits thru 4 are named as 
follows. They are tested and turned on 
or off in the DIGIT19, DIGITO, DECPCIN, 
SCAFACT, and REALCON routines). 

SFSIGN=1 signifies that the Scale Fac- 
tor is followed by a +/- sign. 

SFL0=1 signifies that a scale factor 
exponent contains one or more leading 
zeros. 

SF19=1 signifies that a significant 
digit has been encountered in a scale 
factor exponent. 

SF=1 signifies that a scale factor has 
been encountered as part of a real 
number. 

PRECERR=1 signifies that the precision 
of a real constant exceeds the 
machine capacity. 

STATUS (Bits and 4 are named as fel- 
lows. They are tested in the OPBRACK,, 
COMMA, and CLOBRACK routines.) 

SARRAY=1 (turned on by ARRAY on detec- 
tion of the operator Array) signifies 
that an array declaration is being 
processed. 

SSWITCH=1 (turned on by SWITCH on 
detection of the operator Switch) 
signifies that a switch declaration 
is being processed. SARRAY and 
SSWITCH are both turned off by SEMI- 
DELT at the close of the declaration. 

ZCLOBRA 

X'OO* (set to X 1 00' by COMMA and 
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OPBRACK on detection of the operators 
I or Comma in a subscript expression) 
signifies that SUSCRITE is to be 
called. 

X'FF' (set to X'FF' by CLOBRACK on 
detection of an array element in a 
subscript expression) signifies that 
the rest of the expression cannot be 
optimized and specifies that SUSCRITE 
is not to be called. 

ZLVOV 

X'OO' The maximum capacity of SUTAB or 
LVTAB has not yet been reached. 

X'FF' (set to X'FF' in LETRAF and 
SUTABENT) signifies that the maximum 
capacity of LVTAB or SUTAB has been 
reached, and specifies to SUSCRITE 
and LETRAF that no more entries are 
to be made in these tables. 



CONSTITUENT ROUTINES OF SCAN III PHASE 



A SPIE macro is then issued to provide 
for special handling of interrupts due to 
exponent overflow or underflow. By execu- 
tion of this macro,, the Directory routine 
PIROUT (the routine specified in the SPIE 
macro executed in the Initialization Phase) 
is replaced as the program interrupt exit f 
by a routine named INTERUPT. INTERUPT 
determines the type of interrupt involved,, 
and if it is any interrupt other than an 
exponent overflow, passes control to 
PIROUT, which then passes control to the 
entry address TERM2 stored at ERET (see 
preceding paragraph). If, however;, the 
interrupt is due to exponent overflew, 
INTERUPT records Error No. 82, disregards 
the constant in the Modification Level 1 
source text, transfers an all-purpose 
internal name to the Modification Level 2 
text,, and passes control to the GENTEST 
routine. 



The GETMAIN instruction is issued after 
the area sizes for all work areas have been 
totalled. The area sizes are obtained from 
the Area Size Table in the Common Work 
Area . 



The principal constituent routines of 
the Scan III Phase are described below. 
The Index of Routines in Appendix XI pro- 
vides a guide to the flowchart in the 
Flowchart Section and to the text in which 
each routine is outlined. 



After initializing a pointer to Source 
Text Input Buffer No. 1 in the Common 
Area, a call is made to the Change Input 
Buffer subroutine (ICHA), provided the 
CNEREC switch in the HCOMPMOD Control Field 
shows that the source text has not teen 
transmitted from the Scan I/II Phase in 
main storage. ICHA reads in the first 
Modification Level 1 text record. 



PHASE INITIALIZATION (INITIATE) 



The Initialization routine acquires main 
storage for the private work area shown in 
Figure 47; initializes pointers; issues a 
SPIE macro to take care of exponent over- 
flow and underflow interrupts; stores a set 
of 28 standard procedure designators in the 
Identifier Table (ITAB) work area; reads in 
the first Modification Level 1 text record 
from the SYSUTl data set; and exits to the 
GENTEST routine. 

TERM1 is the address of the routine 
entered in the event of a program interrupt 
or input/output error. It is stored at 
ERET, the location referenced by the Pro- 
gram Interrupt routine (PIROUT) and the I/O 
Error routines (SYNAD and SYNPR) in the 
Directory. TERM1 is changed to TERM2 after 
the GETMAIN macro has been issued. 



A set of 28 eleven- byte entries contain- 
ing the external and internal names of all 
ALGOL standard I/O procedures and mathemat- 
ical functions, is moved into the Identifi- 
er Table area from a table named FIXITAB. 
Appendix III lists the internal names of 
standard I/O procedures and mathematical 
functions. 

After fetching (by means of a NOTE 
macro) the data set address of the last 
Identifier Table (ITAB) record on SYSUT3, 
and saving the address in NOTEW and 
SULTSTRT, the data set is repositioned to 
the first ITAB record, and a call is made 
to the ITABMOVE subroutine, which reads in 
the first record. The data set address in 
NOTEW is referenced by the WRITE subroutine 
in the present phase; SULTSTRT is ref- 
erenced in the Subscript Handling Phase, 
when SUTAB and LVTAB are read into main 
storage. 
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WP=ZLITSTA 




(Space reserved for strings stored 
in Scan l/ll Phase) 


ZWP-ZD^ 












Constant Pool (4096) 




(ZWP) 
(ZDWP) 




^ __ ZTEXTCO 




ZKOPEND 
ZIBSTAO 

ZCURITEN 
ZITREC 








(Standard Procedure Designators) 






Identifier Table (ITAB)* 




ZITEND 
ZIN=ZIBREAD 


















Source Text Input Buffer No. 2 * 




(ZIN) 
ZOUT=ZOBWORK 










Source Text Output Buffer No.l* 


ZFILEl | 
ZFILE2/ 
ZFILE3L 


(ZOUT) 






ZFILE5[ 


ZOBWRITE 






ZFILE6I 
ZFILE9/ 


PFA=PFANO 




Source Text Output Buffer No. 2* 




^ 










Critical Identifier Table (CRIDTAB)* 




(PFA) 


* 




ZSUTAPC 


}=ZSUDAD 
SUSTRT 








SgTB 1 




Subscript Table (SUTAB)* 




(ZSUTAPO) 

:lesta=lvstrt 


♦ 




Z.LtVA— Z 




LVT& ! 




Left Variable Table (LVTAB)* 




(ZLEVA) 
ZLEMAX 


~T"- 

* 





Notes; 

1. Source Text Input Buffer No. 1 is located in the 
Common Area acquired by the Initialization Phase. 
Its address is obtained from the Common Work Area 
location SRCE1ADD and stored at ZIBRUN. In the 
ICHA subroutine, input buffers are exchanged by 
exchanging the contents of ZIBRUN and Zl BREAD 
and setting Z1NR=ZIBRUN, where the latter point 
to the next record to be processed, while Zl BREAD 
points to the alternate buffer into which read-in of 
the following record has been started. The end of a 
record is identified by the operator Zeta . 

2. In the OUCHA subroutine, source text output buffers 
are exchanged by exchanging the contents of 
ZOBWORK and ZOBWRITE and setting ZOUT= 
ZOBWORK, where the latter point to the vacant 
buffer to be filled next, while ZOBWRITE points to 
the alternate buffer from which output of a record 

has been started. Pointers ZFILEl, ZFILE2, , 

ZFILE9 point to the end of the current buffer, less 1, 
2, , 9bytes. 

3. In the Constant Pool, ZLITSTA points to the next free 
entry, allowing for strings stored by the Scan l/ll 
Phase. The displacement by ZLITSTA from the start of 
the pool is obtained from tne displacement pointer 
PRPOINT, transmitted from Scan l/ll in the Common 
Work Area. 

ZWP and ZDWP point to the next free entry at a 
word or double word boundary. 

ZTEXTCO is set equal to ZWP + 56 after a TXT record 
has been output. A TXT record is output as soon as 
ZWP>ZTEXTCO. 

4. In the Identifier Table, ZCURITEN points to the end 
of the set of ITAB records representing identifiers 
declared or specified in the embracing blocks and 
procedures. ZITREC points to the next entry. 

5. A four-byte key is stored at the start of SUTAB and 
LVTAB records. The key permits the Subscript Hand- 
ling Phase to identify each record read from SYSUT3. 



* Area size specified by Area Size Table in Common Work Area. See 
Appendix VIII for the variation in area sizes as a function of the SIZE 
option. 

Figure 47. Private Area acquired by Scan III Phase 
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GENERAL TEST (GENTEST) 



GENTEST scans the Modification Level 1 
text in the current input buffer by means 
of a Translate and Test instruction, and 
branches to one of 26 routines,, according 
to the function byte assigned the particu- 
lar character in Translation Table GENER. 
The function bytes assigned by GENER to the 
character set and the routines entered from 
GENTEST are as follows: 



Character 



<Any letter or digit> 



Zeta 

Rho 

Decimal Point 

Scale Factor, 

Apostrophe 

<A11 other operators> 



Function 


Routine 


Byte 


Entered 


00 


(No branch 




scanning 




continues) 


04 


ZETALET 


08 


RHO 


0c 


ERROR 1 


10 


IDENT 



Character 




Byte 


Entered 


<Any letter> 




04 


LETTER 


<Any digit 1 - 9> 




08 


DIGIT19 


<Digit 0> 




0C 


DIGIT0 


Decimal Point 




10 


DECPOIN 


Scale Factor 




14 


SCAFACT 


Apostrophe 




18 


QUOTE 


Beta 




1C 


BETA 


Pi, Phi 




20 


PI PHI 


For 




24 


FOR 


Epsilon 




28 


EPSILON 


Eta 




2C 


ETA 


Do 




30 


DO 


While 




34 


WHILE 


Semicolon, Delta 




38 


SEMIDELT 


[ 




3C 


OPBRACK 


Comma 




40 


COMMA 


] 




44 


CLOBRACK 


Zeta 




48 


ZETA 


Gamma 




4C 


GAMMA 


Omeqa 




50 


OMEGA 


+ #-#*#■*-*(*)* 




54 


OTHOP 


<, >, <, >, =, *, 








Assiqn, Not, Impl, 


Qr, 






And, Equiv, Label 


Colon 


i 




Beqin, Goto, Until 


, If. 






Then, Else, End, Power 






Rho 




58 


RHO 


Step 




5C 


STEP 


Array 




60 


ARRAY 


Switch 




64 


SWITCH 


Power,/ 




68 


DIPOW 



IDENTIFIER TEST (LETTER) 



Entry to IDENT signifies that an iden- 
tifier in a valid context has teen encoun- 
tered. IDENT searches the Identifier Table 
for the corresponding entry, and when the 
entry is found, passes control to FOLI (see 
below). Control is subsequently returned 
to LETTER 1, which transfers the internal 
name of the identifier to the Modification 
Level 2 text, replacing the external name 
in the Modification Level 1 text. 

ZETALET exchanges source text buffers, 
by call to the ICHA subroutine, and returns 
control to LETTER, 

ERROR1 branches to INCOROP, which 
records Error No, 80, transfers an all- 
purpose internal name tc the output text 
and switches the Compiler to Syntax Check 
Mode before returning control to GENTEST. 



ITAB SEARCH (IDENT) 



IDENT moves up to six characters of the 
identifier in the source text to a field 
named ZIDEX, and then compares the 
identifier with the external names listed 
in the Identifier Table. When a matching 
entry is found, control is passed to the 
Identifier Classification Routine (FOLI). 
If an identical external name is not found, 
the identifier in the source text is unde- 
clared: Error No. 81 is recorded. Syntax 
Check Mode is entered, and an all-purpose 
internal name at ZALLPU is addressed. Con- 
trol is then returned to LETTER (via 
LETTER1) which transfers the internal name 
to the output buffer, and returns control 
to GENTEST. 



See "Identifier Handling" in this chapter. 

LETTER, which is entered from GENTEST on 
recognition of a letter, scans the source 
text to the next nonletter, nondigit char- 
acter, and branches to one of four rou- 
tines, according to the function byte 
assigned by Translation Table IDENTI. The 
function bytes assigned to the character 
set and the routines entered from LETTER 
are as follows: 



IDENTIFIER CLASSIFICATION (FOLI) 



FOLI inspects the internal name located 
by IDENT in the Identifier Table, corres- 
ponding to the identifier in the source 
text, and branches to one of four routines, 
according to the class of identifier desig- 
nated by the Special Use Bits in the 
characteristic (Figure 9) : 
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Special 
Use Bits 



Identifier Class 



Program 
Entered 



PROCEDURE/PARAMETER (PROFU) 



00 Declared simple NOCRI 
variable or array 
identifier 

01 Procedure identifier PROFU 
or formal parameter 

10 Label or switch SWILA 
identifier 

11 Critical Identifier CRITI 

(the identifier occurs 
in the for list of 
the embracing for 
statement) 



PROFU is entered when the FOII routine 
has detected a procedure identifier or a 
formal parameter. PROFU erases all entries 
(if any) in the Array Identifier Stack in 
the event the procedure identifier or for- 
mal parameter occurs in an array list; and f 
if the procedure or formal parameter occurs 
in a for statement (indicated by entries in 
the Critical Identifier Table), calls the 
DELCRIV subroutine, which classifies the 
embracing for statement (s) Normal Loops and 
erases CRIDTAB. Control is returned to the 
LETTER1 routine, which transfers the inter- 
nal name of the identifier to the output 
text. 



Only the first three classes are rep- 
resented in the Identifier Table as con- 
structed in the Scan I/II and Identifier 
Table Manipulation Phases. A declared 
real, integer, or boolean simple variable 
is classed a critical identifier (the 
fourth class) as soon as it is detected in 
a for list. In practical terms, this means 
that the Special Use Bits of the corres- 
ponding entry in the Identifier Table are 
set to binary 11 and that an entry for the 
identifier is made in the Critical Iden- 
tifier Table. At exit from the for state- 
ment, all identifiers in the for list are 
restored to the noncritical class by reset- 
ting the Special Use Bits of the corres- 
ponding Identifier Table entries to 00, and 
the entries in the Critical Identifier 
Table for those identifiers are deleted. 



SWITCH/LABEL (SWILA) 



SWILA is entered when the FOLI routine 
has identified a switch or label identifi- 
er. The function of SWILA is to determine 
whether the label or switch implies a 
branch out of the current scope. If so, it 
is determined (by reference to the Group 
Table) if the branch is into a scope 
enclosing the current scope, or into a 
scope enclosed by the current scope. In 
the first case, the jump is valid, but if 
the current scope is a for statement, its 
optimization is affected, and the corres- 
ponding for statement's classification byte 
is modified. 



NONCRITICAL IDENTIFIER (NOCRI) 



In the second case, the branch is inval- 
id, as it is into a for statement, and an 
error is recorded. In every case, control 
is returned to the LETTER1 routine. 



NOCRI determines whether the identifier 
encountered in the source text occurs in a 
for list, in the iterated part of a for 
statement, or outside a for statement. If 
the identifier occurs in a for list 
(indicated by ZFORTEST* X'00'), a call is 
made to the CRIMA subroutine, which sets 
the Special Use Bits of the corresponding 
Identifier Table entry to 11, classifying 
it a critical identifier, and makes an 
entry for the identifier in the Critical 
Identifier Table. If the identifier occurs 
in the iterated part of a for statement and 
if it occurs as an integer left variable, a 
call is made to the LETRAF subroutine, 
which makes an entry in the Left Variable 
Table. If the identifier occurs outside a 
for statement, control is returned to the 
LETTER routine, which transfers the inter- 
nal name in the corresponding Identifier 
Table entry to the output text, replacing 
the external name in the Modification Level 
1 text. 



CRITICAL IDENTIFIER (CRITI) 



CRITI is entered when the FOLI routine 
has identified an operand that is a criti- 
cal identifier, i.e. the source identifier 
occurs in the for list of an embracing for 
statement. (An entry for the identifier 
will have been previously made in the 
Critical Identifier Table). The action 
taken depends on whether the operand occurs 
in a for list or net (indicated by the 
switch ZFORTEST) . 



Identifier in For List 



A branch is made to 
the CRIMA subroutine which constructs an 
entry for the identifier in the Critical 
Identier Table. 

CRITI then searches the Critical Iden- 
tifier Table for the previous entry for the 
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identifier. When the earlier entry has 
been found , the two entries are chained 
together, the flag byte in each entry being 
set so as to indicate respectively that the 
entry is preceded or followed by another 
entry for the same operand, and the rela- 
tive address of the preceding or following 
entry being stored in byte 5 and 6 or byte 
7 and 8 (see Figure 45) . 

Tests are now made of the appropriate 
bit in the flag- byte of the two entries to 
determine whether or not the identifier 
constitutes the controlled variable in the 
respective for statements. The action 
taken for the various alternatives is as 
follows : 

If the identifier occurs as the con- 
trolled variable in the current for state- 
ment as well as an enclosing for statement, 
the classification byte in the For State- 
ment Table for the enclosing for statement 
is modified to show that subscript optimi- 
zation is not possible. If the identifier 
in the current for statement is the con- 
trolled variable, but in the enclosing for 
statement is not the controlled variable, 
the enclosing for statement is classified a 
Normal Loop. 

If the identifier occurs twice in the 
current for list (once as the controlled 
variable), the current for statement is 
classified a Normal Loop. 

A test is now made to determine if the 
preceding entry in the Critical Identifier 
Table is chained to another preceding 
entry. If it is, the for statement ref- 
erenced by that entry is classified in the 
For Statement Table in the manner described 
above, according to the position of the 
identifier in the current for statement and 
in the enclosing for statement. 



Identifier Not in For List : If the Array 
Identifier Stack contains any entries, 
indicating that the identifier occurs in a 
subscript expression, control is returned 
immediately to GENTEST. If, however,, the 
Array Identifier Stack is empty (indicated 
by ZARSPO = ZARNO) , the processing contin- 
ues as follows: 

A search is made in the Critical Iden- 
tifier Table for the entry corresponding to 
the identifier in the source text (the 
search is made by comparing the contents of 
bytes 1, 2, and 3 in the Critical Identifi- 
er Table entries with the contents of bytes 
8, 9, and 10 of the Identifier Table entry 
previously located by IDENT) . 

If the identifier in the source text is 
a left variable (followed by :=), and if 
the entry in the Critical Identifier Table 



indicates that the identifier occurs in the 
for list as the controlled variable, the 
classification byte of the corresponding 
for statement is modified to show that 
subscript optimization is not possible. If 
the identifier is a left variable and 
occurs in the for list as an operand other 
than the controlled variable, the for 
statement is classified a Normal Loop. 

If the identifier in the source text is 
not a left variable but occurs in the for 
list as the controlled variable, the cur- 
rent for statement is classified an Elemen- 
tary Loop. Nc entry is made in the For 
Statement Table if the identifier occurs in 
the for list as an operand other than the 
controlled variable. 

After the action described above, con- 
trol is returned to the LETTER routine, 
which transfers the identifier's internal 
name in the Identifier Table to the Modi- 
fication Level 2 text. 



MAKE CRIDTAB ENTRY (CRIMA) 



CRIMA is entered when the NOCRI or CRITI 
routine has determined that an identifier 
occurs in a for list. Provided the iden- 
tifier is not an array, CRIMA makes an 
entry in the Critical Identifier Table, 
indicating if the identifier is the con- 
trolled variable or not; classifies the for 
statement a Counting or Elementary Loop, 
depending on whether the identifier is an 
integer or not; and changes the Special Use 
Bits of the corresponding Identifier Tatle 
entry to mark the identifier a critical 
identifier. If the for statement is 
enclosed by another for statement* and the 
identifier is a controlled integer varia- 
ble, a call is made to the LETRAF subrou- 
tine, which makes an entry for the iden- 
tifier in the Left Variable Tatle. 

If the identifier is an array, the for 
statement is classified a Normal Loop and a 
call is made to the CRIFODEL subroutine, 
which erases all entries in the Critical 
Identifier Table for identifiers in the for 
list of the for statement. 



CRIDTAB OVERFLOW (CRIFLOW) 



CRIFLOW is called by the CRIMA subrou- 
tine in the event of overflow of the 
Critical Identifier Table (CRIDTAB). CRI- 
FLOW deletes all CRIDTAB entries for the 
outermost enclosing for statement and clas- 
sifies that for statement a Normal Loop, 
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ERASE CRIDTAB (DELCRIV) 



DELCRIV is called by the PROFU routine, 
when it is determined that a procedure or a 
formal parameter occurs in a for statement. 
DELCRIV erases all entries in the Critical 
Identifier Table, representing identifiers 
in the for list(s) of the embracing for 
statement (s) ; resets the Special Use Bits 
of the corresponding Identifier Table 
entries (to indicate they are no longer 
critical); and reclassifies the embracing 
for statement (s) Normal Loops. 



UPDATE CRIDTAB (CRIFODEL) 



CRIFODEL is called by the ETA routine 
and by the CRIMA subroutine when an array 
has been encountered in a for statement. 
CRIFODEL deletes the entries in the Criti- 
Identif ier Table for identifiers in the for 
list. 



Function 
Byte 


Routine 
Entered 


04 
08 
OC 


DECPTM 

SCAFACTM 

QTCRLT 


10 
14 
18 
00 


ZETAM 

RHO 

OTHER 

(No branch- 




scanning 
continues) 



MAKE LVTAB ENTRY (LETRAF) 



Character 



Decimal Point 

Scale Factor 

<Any Letter> 

Apostrophe 

Zeta 

Rho 

<Any other character> 

<Any digit> 



Before scanning is initiated, registers 
are set to specify the address and length 
of a 19-byte field named NUMBER to which 
the digits of a constant are subsequently 
moved . 

DECPTM is entered when the Decimal Point 
in a real constant (e.g. 640.325) is 
encountered. DECPTM moves the significant 
integer digits (640 in the example) to the 
19-byte field named NUMBER, computes the 
number of digits moved in ReXCORR (register 
7), and branches to DECPOIN (see belcw) . 
The digit count in REXCORR is treated as 
the exponent of a power -of -ten correction 
factor which must be applied to the con- 
stant, regarded as a mantissa, with the 
Decimal Point shifted to the left of the 
high order digit. Thus, the constant 
640.325 is treated as the product .640325 x 
10 3 . 



LETRAF is called by NOCRI when a left 
variable is encountered in the iterated 
part of a for statement, and by CRIMA when 
a controlled variable is identified and it 
is determined that the current for state- 
ment is enclosed by another for statement. 
LETRAF makes one entry in the Left Variable 
Table (LVTAB) for the left variable, for 
every for statement which embraces the left 
variable. If the LVTAB work area is 
filled, the WRITE subroutine is called. 



SCAFACTM is entered when the Scale Fac- 
tor in a constant (e.g. 28 "45) is encoun- 
tered. SCAFACTM moves the significant 
digits preceding the Scale Factor to the 
19-byte field named NUMBER, computes the 
number of digits moved (in REXCORR), and 
branches to SCAFACT (see below). The digit 
count in REXCORR is treated as the exponent 
of a power-of-ten correction factor which 
must be applied to the mantissa in which 
the implied decimal point has been shifted 
to the left of the high- order digit. The 
digit count is subsequently added (by 
SCAFACT) to the exponent following the 
Scale Factor. 



NONZERO DIGIT (DIGIT19) 



See "Number Handling" in this chapter. 

DIGIT19 is entered from GENTEST on 
detection of any nonzero digit in the 
Modification Level 1 text, and from DIGIT0 
on recognition of a nonzero digit following 
a zero. DIGIT19 scans the source text to 
the next nondigit character, using Transla- 
tion Table DIG1 9, and branches to one of 
six routines according to the assigned 
function byte. The function bytes assigned 
to the character set and the routines 
entered from DIGIT19 are as follows: 



QTORLT is entered if a constant contains 
an invalid character or if a constant 
occurs in an invalid context. QTORLT exits 
to INCOROP, which records Error No. 80, 
transfers an all-purpose internal name, and 
returns to GENTEST after switching to Syn- 
tax Check Mode. ZETAM exchanges input 
buffers (after moving the preceding digits 
to NUMBER and computing the digit count in 
REXCORR) and returns to DIGIT19, which then 
scans the remainder of the constant in the 
new buffer. 

RHO returns control directly to GENTEST, 
disregarding the preceding digit (s). The 
operator Rho signifies, in this particular 
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context* that the preceding digit (s) 
form(s) part of an invalid identifier that 
is to be disregarded. 



ZERO DIGIT (DIGITO) 



DIGITO is entered from GENTEST when a 
lone zero or a nonsignificant zero at the 
beginning of a constant is encountered in 
the Modification Level 1 text. DIGITO 
scans the source text to the next nonzero 
character, using Translation Table DIGO and 
branches to one of seven routines, accord- 
ing to the assigned function byte. The 
function bytes assigned to the character 
set and the routines entered from DIGITO 
are as follows: 



Character 

<Nonzero digit > 
<Any Letter> 
Apostrophe 
Decimal Point 
Scale Factor 
Zeta 



Rho 

<Any other character> 

<Zero Digit> 



Function 
Byte 


Routine 
Entered 


04 
08 


DIG191 
QTORLT 


OC 
10 
14 
18 
1C 
00 


DECPOIN1 
SCA0 
ZETA0 
RHO 
OTHOP0 
(No branch- 




s canning 
continues) 



DECIMAL POINT (DECPOIN) 



DECpOIN is entered 

1. From GENTEST on recognition of the 
Decimal Point at the begining of a 
real constant (e.g. .325). 

2. From DIGITO on recognition of the 
Decimal Point following a zero (e.g. 
0.325). 

3. From DIGIT19 on recognition of the 
Decimal Point in a real constant (e.g. 
640.325 or 1.325' 45). In this case, 
the integer digits will have been 
moved, before entry to DECPOIN, to a 
19- byte field named NUMBER, and reg- 
ister REXCORR will contain the expo- 
nent of a power-of-ten correction fac- 
tor to be applied to the constant, 
regarded as a mantissa with the deci- 
mal point shifted to the left of the 
high order digit. 

DECPOIN scans the source text to the 
next character other than a 1-9 digit, 
using Translation Table DECPO, and branches 
to one of five routines, according to the 
assigned function byte. The function bytes 
assigned to the character set and the 
routines entered are as follows: 



Before scanning is initiated, registers 
are set to specify the address and length 
of a 19- byte field named NUMBER to which 
the nonzero digits following the zero(s) 
are subsequently moved. 

DIG191 (an entry point of the DIGIT19 
routine) is entered when a nonzero digit is 
encountered in a constant (e.g. 064) begin- 
ning with zero. 

DECPOIN1 (an entry point of the DECPOIN 
routine) is entered when a Decimal Point is 
encountered in a real constant (e.g. 
0.325). 

SCA0 is entered when the Scale Factor is 
encountered immediately following a zero 
(e.g. 0'4 5). SCA0 loads the value zero 
(the equivalent value of a constant of this 
type) and exits to the SCAFACT routine. 

OTHOP0 is entered when the integer zero 
is identified. OTHOP0 transfers a five- 
byte internal name, referencing a location 
in Constant Pool No. where the constant 
zero is stored, to the Modification Level 2 
text and returns control to GENTEST. 

QTORLT and RHO perform the same 
functions as those described under the 
DIGIT19 routine. ZETA0 exchanges input 
buffers and returns control to DIGITO. 



Function Routine 



Byte 



Entered 



04 
08 


DECPO 
QTORLTP 


OC 
10 
14 
00 


DECPSCA 

DECPZETA 

DECPOT 

(No branch- 




scanning 
continues) 



Character 

<Digit Zero> 

<Any letter>. Decimal 

Point or Apostrophe 

Scale Factor 

Zeta 

<Any other character > 

<Any 1-9 Digit> 



Before scanning is initiated, registers 
are set to specify the address and length 
of a 19-byte field named NUMBER, to which 
the digits following the Decimal Point are 
subsequently moved. 

DECPO is entered when any zero following 
the Decimal Point is encountered. Provided 
the zero is not preceded by a significant 
digit (as in 0.0325)* DECPO decrements 
REXCORR (register 7) for each zero follow- 
ing the Decimal Point , and returns to 
DECPOIN. If the zero is preceded by a 
significant digit (as in 6.0325 or 0.3025), 
REXCORR is not decremented. The resulting 
count, if any, in REXCORR is treated as the 
(negative) exponent of a pcwer-of-ten cor- 
rection factor to be applied to the con- 
stant, regarded as a mantissa with the 
decimal point shifted immediately to the 
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left of the first nonzero digit, Thus, for 
example, the constant 0,0325 is regarded as 
the product 0.325 * 10- * 



DECPSCA is entered when the Scale Factor 
is encountered in a real constant (e.g. 
1.325' +45 or 0.0125' -45). DECPSCA moves 
the decimal digits preceding the Scale 
Factor to the 19 -byte field NUMBER, adjoin- 
ing the integer digits (if any) previously 
moved by DIGIT19, and passes control to 
SCAFACT. DECPOT is entered when the end of 
a decimal constant (e.g. 1.25) is iden- 
tified. Provided the constant is not zero, 
DECPOT passes control to the REALCON rou- 
tine. If the constant is equivalent to 
zero, register XFLOAT is loaded with the 
value zero, and control is passed to REAL- 
HAN. QTORLTP and DECPZETA perform essen- 
tially the same functions as QToRLT and 
ZETAM in the DIGIT19 routine. 



SCALE FACTOR (SCAFACT) 



SCAFACT is entered: 



1. from GENT EST on recognition of the 
Scale Factor in a constant having no 
mantissa (e.g. '45); 



2. from DIGIT0 on recognition of the 
Scale Factor following a zero mantissa 
(e.g., 0'45); 

3. from DIGIT19 on recognition of the 
Scale Factor following an integer man- 
tissa (e.g. 28'45); and 

4. from DECPOIN on recognition of the 
Scale Factor following a decimal man- 

1.325'+45). 



tissa (e.g. 



In both cases (3) and (4), the signifi- 
cant digits of the mantissa will have been 
moved, before entry to SCAFACT, to a 
19- byte field named NUMBER, and register 
REXCORR will contain the exponent of a 
power-of-ten correction factor to be 
applied to the mantissa, in which the 
decimal point (expicit or implied) has been 
shifted to the left of the high-order 
nonzero digit. 

SCAFACT scans the source text, using a 
Translate and Test instruction, and branch- 
es to a routine determined by the assigned 
function byte. The function bytes assigned 
to the character set and the routines 
entered are as follows: 



Function 


Routine 


Byte 


Entered 


04 


SCA19 


08 


SCAZERC 


OC 


SCASIGN 


10 


SCAQL 


14 


SCAZETA 


18 


SCAOT 



Character 

<Any nonzero digit> 

<Zero> 

+ or - 

<Any Letter >, Decimal 

Point , Scale Factor 

or Apostrophe 

Zeta 

<Any other operator> 



SCA19, SCAZERO, and SCASIGN each set a 
switch (named SF19, SFL0, and SFSIGN, 
respectively) to indicate the detection in 
the exponent following the Scale Factor of 
(a) a nonzero digit, (b) a leading zero, or 
(c) a leading +/- sign. These switches are 
inspected in SCASIGN to determine if a +/- 
sign marks the beginning or end of the 
exponent, and in SCAOT to determine if the 
exponent is syntactically correct. If a 
+/- sign precedes the exponent (indicated 
if none of the switches have been turned 
on) , SCASIGN stores the sign for use when 
the exponent is converted to binary (in 
SCAOT) . SCAOT in entered when the end of a 
floating point constant (e.g. 28" 45 or 
1.325" +45) has been identified. SCAOT 
moves the digits of the exponent following 
the Scale Factor to a nine-byte field named 
SCAWORK; converts the exponent (together 
with the previously saved exponent sign) to 
binary form, and adds the resultant to the 
exponent of the power-of-ten correction 
factor (if any) in REXCORR. This action 
has the effect of transforming a floating 
point constant to a standard format, con- 
sisting of a fractional mantissa, with the 
decimal point shifted to the left of the 
high-order nonzero digit, and an integer 
exponent,, where the mantissa is stored at 
the 19- byte field NUMBER and the exponent 
is contained in REXCORR. 

SCAQL and SCAZETA perform essentially 
the same functions as QTCRLT and ZETAM in 
the DIGIT19 routine. 



INTEGER CONVERSION (INTCON) 



INTCON converts an integer constant to 
binary form (in register RBIN) and passes 
control to INTHAN, which stores the con- 
stant in the Constant Pool and transfers a 
five-byte internal name representing the 
constant, to the Modification Level 2 text. 
If a constant exceeds ten digits. Error No. 
83 is recorded, the constant is moved to 
the 19-byte field NUMBER, and control is 
passed to REALCON. 

INTCON is entered from DIGIT19, the 
limits of the constant in the source text 
being specified by two pointers, its length 
being contained in register REXCORR. 
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REAL CONVERSION (REALCON) 



REALCON converts a real constant to 
floating point form (in floating point 
register XFLOAT) and passes control to 
REALHAN, which stores the constant in the 
Constant Pool and transfers a five- byte 
internal name respresenting the constant to 
the Modification Level 2 text. 



REALCON is entered 

1. From DECPOIN when the end of a decimal 
constant (e.g. 32.125) has been iden- 
tified; 

2. From SCAFACT when the end of a float- 
ing point constant (e.g. 1.25*47) has 
been identified; and 

3. From INTCON when an integer constant 
exceeds ten decimal digits or the 
maximum range of a fixed point con- 
stant . 



3. The mantissa in XFLOAT ig multiplied 
by the hexadecimal eguivalent of the 
power-of-ten exponent in REXCORR. The 
hexadecimal equivalent is obtained 
from one of two power-of-ten tables 
named ZEXTABP and ZEXTABN, the former 
for positive powers of ten, the latter 
for negative powers of ten. Each 
table contains fifteen entries, the 
first seven for exponents in the range 
±1 to ±7 , the last eight for the 
exponents ±8, ±16 f ±24, and so on up 
to ±64. Multiplication of the mantis- 
sa is carried out in one or more 
steps, depending on whether the parti- 
cular power-of-ten is exactly rep- 
resented in the table. Thus, for 
example, if the power-of-ten is 12 
(decimal) the mantissa is multiplied 
first by the equivalent of 10** and 
secondly by the equivalent of 10 8 . 



INTEGER HANDLING (INTHAN) 



At entry to REALCON, the constant to be 
converted will have been transformed to the 
standard format of a decimal raatissa, with 
the implied decimal point to the left of 
the high order digit, and an integer expo- 
nent (the constant being equal to: Mantissa 
* 10** Exponent) . The mantissa is stored in 
decimal form in a 19 -byte field named 
NUMBER, while the exponent, in binary form, 
is contained in REXCORR (register 7). 



The conversion to 
proceeds as follows: 



floating point form 



The mantissa is tranformed to an inte- 
ger mantissa, the implied decimal 
point being shifted to the right of 
the lowest order digit, by subtracting 
the number of digits in the mantissa 
from the exponent in REXCORR. 

The mantissa is converted to binary 
and stored in the second four bytes of 
an eight-byte field named ZFLOFIEL 
containing the power- of -sixteen char- 
acteristic of 78 (X f 4E') in the high- 
order byte. The contents of ZFLOFIEL 
are then loaded (normalized) in 
floating point register XFLOAT. The 
characteristic of 78 (equivalent in 
excess- 64 notation to a power-of- 
sixteen exponent of 14) is the 
exponent required to compensate for an 
implied 14 -place leftward shift of the 
radix point, i.e., from a position to 
the right of the low- order mantissa 
digit (see item 1). The charac- 
teristic is reduced, when the mantissa 
is normalized in XFLOAT, by the number 
of hexadecimal places the high order 
digit is shifted left. 



INTHAN stores a fixed point constant 
(contained in register RBIN) in the next 
free entry of the Constant Pool, and trans- 
fers a five-byte internal name to the 
output text, referencing the location where 
the constant is stored. If the constant is 
in the range to 15 inclusive, the inter- 
nal name references the relevant constant 
previously stored in the Constant Pool in 
the Scan I/II Phase. INTHAN is entered 
from INTCON and from REALHAN if short 
precision is specified for real constants. 



REAL HANDLING (REALHAN) 



REALHAN stores a floating point constant 
(transmitted in floating point register 
XFLOAT) in the next free entry of the 
Constant Pool and transfers a five-byte 
internal name, referencing the location 
where the constant is stored, to the Modi- 
fication Level 2 text. If short precision 
is specified, the constant in XFLOAT is 
transferred to fixed point register RBIN 
and the INTHAN routine is entered. After 
the constant has been stored in the Con- 
stant Pool, control is returned to GENTEST. 

REALHAN is entered from REALCON. 



CHANGE CONSTANT POOL (CPOLEX) 



CPOLEX is called by INTHAN and REALHAN 
in the event the Constant Pool is filled. 
CPOLEX generates TXT records for the last 
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constants in the Pool,, assigns a new Con- 
stant Pool number, and resets pointers to 
the beginning of the Pool area. 



OUTPUT TXT RECORD (TXTTRAF) 



TXTTRAF is called by INTHAN and REALHAN 
when the end of a 5 6- byte record in the 
Constant Pool has been reached. TXTTRAF 
updates Constant Pool pointers and calls 
the GENTXT subroutine, if the LOAD and/or 
DECK options are specified. GENTXT gener- 
ates TXT records of the Constant Pool and 
outputs the records on SYSLIN and/or SYS- 
PUNCH. 



GENERATE (GENTXT) 



READ ITAB RECORD (ITABMOVE) 



ITABMOVE reads the next Identifier Table 
record from the SYSUT3 data set into the 
work area (see Figure 42) and resets a 
pointer, ZCURITEN, to the end of the pre- 
viously input record reprsenting identifi- 
ers declared cr specified in the newly 
entered block or procedure. It is called 
by BETA and PIPHI on recognition of the 
operators Beta , Pi , or Phi , opening a new 
block or procedure. See "Processing of the 
Identifier Table". 

Identifier Table (ITAB) records are 
input from SYSUT3 in parallel with the 
output of Subscript Table (SUTAB) and Left 
Variable Table (LVTAB) records on the same 
data set. For this reason, the data set 
must be repositioned to the appropriate 
ITAB record, before reading can begin, in 
the event the immediately preceding opera- 
tion involved output of a SUTAB or LVTAB 
record. See "Phase Input/Output" . 



See Chapter 



FOR STATEMENT (FOR) 



APOSTROPHE (QUOTE) 



QUOTE transfers the five-byte internal 
name which follows the Apostrophe , to the 
output buffer. The internal name referen- 
ces a location in the Constant Pool where a 
string or logical value was stored in the 
Scan I/II Phase. 



BLOCK BEGIN (BETA) 



The operator Beta 
opens a new block. 



in the source text 



BETA calls the ITABMOVE subroutine, 
which reads in the next Identifier Table 
record; and transfers Beta and the follow- 
ing Program Block Number to the output 
text. 



FOR sets the switch Z FORTE ST=X" CO * 9 to 
indicate that the next operand is the 
controlled variable, and transfers the 
operator For . 



PROGRAM BLOCK END (EPSILON) 

The operator Epsilon marks the close of 
a block or procedure. 

EPSILON resets a pointer in the Iden- 
tifier Table work area so as to delete the 
block of identifier entries representing 
identifiers declared or specified in the 
block or procedure closed by Epsilon . See 
"Processing of the Identifier Table" in 
this chapter. Epsilon and the following 
Program Block Number of the re-entered 
block are transferred to the output text. 



FOR STATEMENT END (ETA) 



PROCEDURE DECLARATION (PIPHI) 



The operator Pi opens a declared proce- 
dure, while Phi opens a declared <type> - 
procedure. 

PIPHI calls the ITABMOVE subroutine, 
which reads in the next Identifier Table 
record, and transfers Pi (or Phi ) to the 
output text. 



The operator Eta in the input text marks 
the close of a for statement. 

ETA sets the switch ZFORTEST=X , 00V, to 
indicate the exit from a for statement,, and 
calls the CRIFODEL subroutine, which 
deletes all entries in the critical Iden- 
tifier Table for the indentif iers in the 
closed for statement's for list. Eta is 
then transferred. 
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DO (DO) 



Do sets the switch ZFORTEST = X'OO', to 
indicate exit from a for list, and trans- 
fers the operator Do . 



WHILE (WHILE) 



WHILE modifies the current for 
statement's classification byte in the For 
Statement Table (FSTAB) to indicate the 
presence of a while element in the list, 
and transfers the operator While to the 
output text. 



possible, COMMA calls the SUSCRITE subrou- 
tine, which makes an entry in the Subscript 
Table (SUTAB) for the subscript expression 
preceding the Comma, provided the subscript 
expression is optimizable (see 
"Optimizable Subscript Expression") . 
If subscript optimization is not possible, 
a call is made to SUCRIDEL, which scans the 
subscript expression to determine if it 
contains a controlled variable, and, if so, 
reclassifies the corresponding for 
statement (s) to Elementary Loops. 



CLOSING BRACKET (CL03RACK) 



SEMICOLON/DELTA (SEMIDELT) 



SEMIDELT transfers the Semicolon 



or 



Delta operator, together with the following 
semicolon count, to the output text, after 
recording the semicolon count. 



OPENING BRACKET (OPBRACK) 



The opening bracket, [, marks the begin- 
ning of an array list, if the SARRAY switch 
is on. 

If the array occurs in a for statement 
(indicated by entries in CRIDTAB), OPBRACK 
makes an entry for the array in the Array 
Identifier Stack (ARIDSTAB) , provided the 
array does not occur in an embracing array 
list, and transfers the opening bracket to 
the output text. (The ARIDSTAB entry is 
not deleted until the closing bracket is 
encountered) . 

If the array occurs in an enclosing 
array list ( indicated by the presence of an 
entry in ARIDSTAB) , a call is made to 
SUCRIDEL, which scans the subscript expres- 
sion in which the array occurs, to deter- 
mine if it contains a controlled variable, 
and reclassifies the corresponding for 
statement (s) to Elementary Loops. 



The closing bracket, ]„ marks the end of 
an array list, if the SARRAY switch is en. 

If the array occurs in a for list 
(indicated by an entry in ARIDSTAB), and if 
subscript optimization is possible, a call 
is made to SUSCRITE, which makes an entry 
in the Subscript Table, provided the sub- 
script expression is optimizable. If sub- 
script optimization is not possible, a call 
is made to SUCRIDEL, which scans the sub- 
script expression to determine if it con- 
tains a controlled variable, and if so, 
reclassifies the corresponding for 
statement (s) to Elementary Loops. 

If the Array Identifier Stack contains 
more than one entry, indicating that the 
current array occurs in an enclosing array 
list, a switch is set to indicate that 
optimization of the embracing subscript 
expression is not possible. 



SCAN SUBSCRIPT (SUCRIDEL) 



SUCRIDEL is called by OPBRACK, COMMA, 
and CLOBRACK when it is determined that an 
array occurs ir a subscript expression of 
another array. It is also called by SUS- 
CRITE when an unoptimizable subscript is 
found. Its function is to scan the sub- 
script expression to determine if the con- 
trolled variable of an embracing for state- 
ment occurs in the expression, and if so, 
to classify the relevant for statement an 
Elementary Loop. 



COMMA (COMMA) 



The Comma marks the end of a subscript 
expression in an array list. 

If the array occurs in a for statement, 
and if the ZCLOBRA switch indicates that 
optimization of the subscript expression is 



SUBSCRIPT TEST (SUSCRITE) 



SUSCRITE is called by COMMA and CLOBRACK 
i f a Comma or closing bracket, ], termi- 
nates a subscript expression of an array in 
a for statement (indicated by one or more 
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entries in the Array Identifier Stack) . 
SUSCRITE determines if the subscript 
expression is optimizable, and if so, makes 
an entry for the expression in the Sub- 
script Table - SUTAB (see Figure 44). To 
be opt imiz able, the expression must be of 
the type ±F*V±A, where the Factor F is an 
integer variable or constant, V is the 
controlled variable, and the addend A is an 
integer variable or constant. Either F or 
A may be a zero constant. If F and/or A 
are variables, they must be declared out- 
side the for statement in which the sub- 
script expression occurs. 

A subscript expression which satisfies 
the requirements of optimizability may have 
several forms. Thus, the factor, con- 
trolled variable, and addend may appear in 
positions which differ from the standard 
form given above (e.g,, ±V*F±A or ±A±F*V) . 
Alternatively the factor or addend may be 
equal to zero or one, as in the following 
cas es : 

±F*V (addend = 0) 

+V (factor = 1, addend = 0) 

±A (factor = 0) 

The subscript expression is processed in 
the output buffer, where the internal names 
of the operands in the expression will have 
been transferred, together with any opera- 
tors, before entry to COMMA or CLO BRACK, 
An entry will also have been made (by 
OPBRACK) in the Array Identifier Stack for 
the array identifier. 

Each operand in the subscript expression 
is inspected by the OPERAND subroutine, 
which determines if the operand is an 
integer variable or constant, and if the 
operand is a controlled variable. If it 
is, the address of the corresponding entry 
in the Critical Identifier Table is trans- 
mitted in a register (OPPTR) . If the 
operand is not a controlled variable, OPPTR 
contains the value 0. If an operand is not 
an integer variable or constant, no entry 
is made in SUTAB for the subscript expres- 
sion. 

When the factor (zero, one,, or the 
operand factor in the expression) or the 
addend (zero, or the operand addend in the 
expression) have been identified, each is 
moved to a field named, respectively, FAC- 
TOR and ADDEND. These fields will contain 
the one- byte sign of the factor or addend 
followed by the five-byte internal name of 
the factor or addend found in the output 
buffer. In case the factor or addend is 
absent, the five-byte internal name of the 
constant or 1 is inserted. 

The factor and addend are transferred 
(from FACTOR and ADDEND) to an entry in the 
Subscript Table by the SUTABENT subroutine: 



Before SUTABENT is called, a test is made 
of the for statement's classification byte 
to determine if subscript optimization is 
possible. A test is also made to determine 
if the array identifier, factor, and addend 
are declared outside the for statement 
(this is verified if the Program Block 
Number of the array adentifier, factor,, and 
addend is equal to or less than the Program 
Block Number in the Scope Table entry 
Figure 22 - corresponding to the for 
statement). If all tests are positive,, the 
entry for the expression is made in the 
Subscript Table. 

If a subscript expression occurs inside 
a series of nested for statements, an entry 
is made for each embracing for statement, 
for which the optimizability and scope 
tests, described above, are satisfied. 
This applies only when the factor = 0. 



OPERAND TEST (OPERAND) 



OPERAND is called by SUSCRITE and SUE- 
MULT . Its function is tc determine if an 
operand in a subscript expression is an 
integer variable or constant,, and if the 
operand is a controlled variable. If the 
operand is a controlled variable, the 
address of the corresponding entry in the 
Critical Identifier Table is transmitted in 
register OPPTR. If the operand is net a 
controlled variable, OPPTR contains the 
value zero. 

In the event an operand is not an 
integer operand or constant,, OPERAND exits 
(via SUSCRITE) to the SUCRIDEL subroutine 
(which scans the subscript expression for a 
controlled variable and classifies the cor- 
responding for statement (s) Elementary 
Loops) . Thereafter,, SUSCRITE returns con- 
trol to the calling routine (COMMA or 
CLOBRACK) . 



MULTIPLIER-OPERAND (SUBMULT) 



SUBMULT is called by SUSCRITE when an 
integer operand is followed by a multi- 
plication sign (*). SUBMULT ascertains 
(with the aid of OPERAND) if the operand 
following the multiplication sign is an 
integer operand,, and determines if either 
(or both) of the operands on both sides of 
the multiplication sign is a controlled 
variable. If either (or both) of the 
operands is a controlled variable, SUBMULT 
stores the operand representing the factor 
of the controlled variable for the inner- 
most for statement in the location named 
FACTOR,, and transmits the address of the 
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Critical Identifier Table entry for the 
controlled variable in register CVR. If 
neither of the operands is. a controlled 
variable, or if both operands represent the 
same controlled variable, SUBMULT exits 
(via SUSCRITE) to SUCRIDEL, and SUSCRITE 
thereafter returns control to COMMA or 
CL03RACK. 



resets pointers to a previous input record 
in a second buffer. 



CODE PROCEDURE (GAMMA) 



MAKE SUTAB ENTRY (SUTABENT) 



Tne Gamma operator precedes a code pro- 
cedure identifier in the Modification Level 
1 source text. 



SUTABENT is called by SUSCRITE when an 
entry for an optimlzable subscript expres- 
sion is to be made in the Subscript Table 
(Figure 44). SUTABENT constructs the entry 
as follows: 

For Statement Number: from Critical 
Identifier Table entry addressed by 
CVR 



GAMMA transfers an Apostrophe replacing 
Gamma (X' 3C" ) , together with the following 
eight- byte external name. The external 
name is the name by which the precompiled 
procedure will be called in the object code 
generated by the Compilation Phase. 



Array identifier address: from last 
Array Identifier Stack entry 

Factor address: from the field named 
FACTOR 

Addend address: from the field named 
ADDEND 

Subscript Positional Number: from ZPOSIX 

Sign of factor and addend: from first 
byte of FACTOR and ADDEND 

Output record number and relative address 
of opening bracket: from last Array 
Identifier Stack entry 

SUTABENT also outputs a SUTAB record 
when the work area has been filled, by 
calling WRITE. 



INPUT RECORD END (ZETA) 



The operator Zeta marks the end of the 
current Modification Level 1 source text 
record. 



ZETA calls the ICHA 
exchanges input buffers. 



subroutine, which 



PROGRAM END (OMEGA) 



The operator Omega marks the end of the 
Modification Level 1 source text. 

OMEGA closes the SYSUT1 data set, from 
which the source text was input; writes out 
the last Modification Level 2 text record 
on SYSUT2 (by calling OUCHA) ; and closes 
SYSUT2 temporarily. If the entire Modi- 
fication Level 2 text occupies less than a 
full buffer, it is transmitted to the 
Compilation Phase via this buffer. The 
last segment of the Constant Pool is trans- 
ferred to the SYSLIN and/or SYSPUNCH data 
sets (by calling TXTRAFV, if the LOAD 
and/or DECK options are specified 
(indicated by switches in the HCOMPMOD 
Control Field). The last (partial) records 
of the Subscript Table (SUTAB) and Left 
Variable Table (LVTAB) are output on SYSUT3 
(by calling WRITE), after the respective 
lengths of these tables have been stored in 
ZSUTEN and ZLEVEN for use by the Subscript 
Handling Phase. The main storage occupied 
by all tables in the private work area is 
released; and, after issuing a SPIE macro 
to restore the Directory routine PIROUT as 
the program interrupt routine, control is 
transferred to Diagnostic Output Module 
IEX31. 



CHANGE INPUT BUFFER (ICHA) 



ICHA is called on recognition of the 
record-end character Zeta . ICHA reads in a 
Modification Level 1 text record from the 
SYSUT1 data set to overlay the already 
processed record in the current buffer and 



OTHER OPERATORS (OTHOP) 



OTHOP transfers the operator (see 
GENTEST) to the Modification Level 2 text ^ 
and returns to GENTEST. i 
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LETTER DELIMITER (RHO) 



CHANGE OUTPUT BUFFER (OUCHA) 



The operator Rho signifies that the 
characters at the end of the preceding text 
record formed (a) part of a parameter 
delimiter or (b) part of an invalid iden- 
tifier (see "Modification Level 2 Source 
Text" in this chapter). In the first case,, 
RHO transfers a Comma to the Modification 
Level 2 text to replace the parameter 
delimiter. In the second case,, the invalid 
identifier is disregarded. 



STEP (STEP) 



0UCHA resets pointers to a new Modifica- 
tion Level 2 text output huffer and trans- 
fers the text in the current buffer to the 
SYSUT2 data set. OUCHA is called by all 
routines when the end of the buffer has 
been reached. If the buffer ends in the 
middle of a subscript expression, the sub- 
script expression, together with the 
preceding bracket or comma, is transferred 
to the new buffer, unless the subscript is 
unoptimizable. In the latter case, the 
SUCRIDEL subroutine is called. Before the 
WRITE instruction is issued, the record-end 
operator Zeta is transferred to the next 
byte in the output buffer, and pointers are 
reset to the new buffer. 



STEP modifies the current for 
statement's classification byte in the For 
Statement Table (FSTAB) to indicate the 
presence of the delimiter 'STEP', and 
transfers the Step operator to the output 
text. 



ARRAY (ARRAY) 



ARRAY turns on the SARRAY bit in the 
STATUS byte, to indicate that an array 
declaration has been encountered, and 
transfers the Array operator to the output 
text. 



INCORRECT OPERAND (INCOROP) 



INCOROP is entered from the LETTER, 
DIGIT19, DIGITO, DECPOIN, SCAFACT, and 
QUOTE routines when an illegal character is 
encountered in an operand. INCCROP search- 
es for the end of the operand (indicated by 
an operator), moves the remainder of the 
operand (by calling MOVE) to a field named 
ZIDEX (the first part of the identifier 
will have been transferred before entry to 
INCOROP), calls the MOVERRO subroutine, 
records an error in the Error Pool, con- 
taining up to twelve characters of the 
erroneous operand, and transfers an all- 
purpose internal name to the Modification 
Level 2 text. Before returning control to 
GENTEXT, the Compiler is switched to Syntax 
Check Mode. 



SWITCH (SWITCH) 



SWITCH turns on the SSWITCH bit in the 
STATUS byte to indicate that a switch 
declaration has been encountered, and 
transfers the Switch operator to the output 
text. 



STORE ERROR (MOVERRO) 



MOVERRO stores error patterns in the 
Error Pool. It is called by INCOROP and by 
other routines on detection of syntactical 
errors in the Modification Level 1 text. 
The content of the error pattern is 
indicated in Figure 75. 



DIVIDE/POWER (DIPOW) 



DIPOW, which is entered from GENTEST on 
recognition of the operators Power and /, 
determines if the operator occurs in a for 
list, and if so, marks the corresponding 
for statement's classification byte to show 
the for statement is not a Counting Loop. 
The operator is then transferred to the 
Modification Level 2 text. 



MOVE OPERAND (MOVE) 



MOVE transfers all or part of an exter- 
nally represented operand to a field speci- 
fied by the calling routine. It is called 
by all routines which process identifiers 
and numbers. 



Chapter 6: Scan III Phase 
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CHECK-WRITE (CHECK) WRITE SUTAB/LVTAB RECORD (WRITE) 

CHECK executes a macro instruction to WRITE outputs Subscript Table and Left s 

check the last WRITE operation on the Variable Table records en the SYSUT3 data 

SYSUT3 data set and sets a switch (IOBYTE) set. It is called by OMEGA, LETRAF, and 

to indicate a write- check, SUTABENT. See "Phase Input/Output",. 
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CHAPTER 7: SUBSCRIPT HANDLING PHASE (IEX40) 



PURPOSE OF THE PHASE 



The main purpose of the Subscript Han- 
dling Phase is to identify the array sub- 
script expressions listed in the Subscript 
Table, for which subscript optimization can 
be exercised in the for statements in which 
the expressions occur, and to transfer 
these subscript expressions to the Optimi- 
zation Table. The subscript expressions 
listed in the Subscript Table are optimiza- 
ble, to the extent that the expressions 
satisfy certain constraints with respect to 
the variables and operators in the expres- 
sion, and the linearity of the expression 
in the particular for statement (these 
constraints are explained in Chapter 6). 
However, subscript optimization can only be 
exercised in the relevant for statement (s) 
provided a further condition is satisfied. 
This condition is that no assignment may be 
made in the iterated part of the for 
statement to any variable in the subscript 
expression. 



In the Scan III Phase, certain for 

statements are classified as ncn- 

optimizable after entries have teen made in 

the Subscript Table. These entries are 
deleted in the Subscript Handling Phase 

before construction of the Optimization 

Table. They are identified by reference to 
the For Statement Table. 

When a linear subscript expression 
occurs inside two or more nested for state- 
ments, the Subscript Table contains an 
entry for each for statement. To prevent 
the possibility of multiple entries for a 
subscript expression being transferred tc 
the Optimization Table, all multiple 
entries in the Subscript Table are iden- 
tified and appropriately coded, before the 
Optimization Table is constructed. Multi- 
ple entries are coded at the same time as 
the search for subscript expressions in 
nonoptimizable for statements is performed. 



SUBSCRIPT HANDLING PHASE OPERATIONS 



In the subscript Handling Phase, each 
entry in the Subscript Table is compared 
with the integer left variables of the 
corresponding for statement listed in the 
Left Variable Table. (To facilitate the 
processing, the entries in both tables are 
sorted according to ascending For Statement 
Number, before the comparison is 
initiated.) If an entry is found in the 
Left Variable Table for the same for state- 
ment which matches either the factor or the 
addend in the subscript expression, the 
subscript expression contains variables 
which occur as left variables, and the 
expression is accordingly not optimizable. 
If no matching entry is found in the Left 
Variable Table, the subscript expression is 
optimizable. In this case, the entry in 
the Subscript Table is transferred to the 
Optimization Table. 

Under certain conditions a Counting Loop 
may qualify as a conditional Elementary 
Loop. The Subscript Handling phase serves 
to recognize this condition, and to change 
the classification of a for statement 
accordingly in the For Statement Table. 
The specific condition for this change in 
classification is that the addend A in a 
linear subscript expression of the type 
±F*V±A occurs as left variable in the for 
statement; and that the factor F is a 
nonzero constant or integer- declared varia- 
ble, or that the factor occurs as a left 
variable. 



Figure 48 illustrates the sequence of 
operations performed in the Subscript Han- 
dling Phase. In the comment which follows, 
the numbers in parentheses refer tc the 
numbered positions in the diagram. 

After initialization of the phase, (1) 
the entire Subscript Table is read into 
main storage from the SYSUT3 data set. 
Subscript Table records are intermixed with 
Left Variable Table records on the data 
set, and the entries may not be in ascend- 
ing For Statement Number order. The han- 
dling of Subscript Table and Left Variable 
Table input by the READ subroutine is 
discussed under "Phase Input/Output". 

When input of the Subscript Table is 
complete, (2) a search of the table is 
initiated to identify and flag for dele- 
tion, any entries for subscripts contained 
in for statements classified non- 
optimizable in the For Statement Table. At 
the same time, multiple entries for 
subscripts contained in nested for state- 
ments are identified and coded. 

On completion of the foregoing search, 
(3) the entries in the Subscript Table are 
sorted according to ascending For Statement 
Number. The sorting operation involves the 
transfer of the table to a new work area. 
After the SYSUT3 data set has been reposi- 
tioned, the Left Variable Table ( 4) is read 
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SUBSCRIPT HANDLING PHASE (IEX40) 

2. ScanSUTAB 



Deletes entries in the Sub- 
script Table for subscripts 
in for statements classified 
non-optimizable. Codes 
multiple entries for subscripts 
in nested for statements. 



1. READ subroutine 

Reads in the Sub- 
script Table. 



SYSUT3 

Subscript 
Table (&TAB) 
Left Variable 
Table 
(LVTAB) 



Unsorted 
Subscript 
Table 

SUTAB 



For State- 
ment Table 

FSTAB 



^r 






6. Construct OPTAB 

Compares the factor and addend in 
each Subscript Table entry with the left 
variables in the Left Variable Table, and 
transfers the entry to the Optimization 
Table if no matching left variable is 
found. Reclassifies for statements to Ele- 
mentary Loops if a subscript is non-opti- 
mizable and the Factor = 0. Calls OTACHA 

when an Optimization Table buffer has been 

filled. 



Unsorted 
Left Vari- 
able Table 

LVTAB 



3. SORT subroutine 

Sorts the entries 
in the Subscirpt 
Table according to 
ascending For State- 
ment Number. 



Sorted 

Subscript 

Table 

SUTAB 



Sorted Left 

Variable 

Table 

LVTAB 



4. READ subroutine 

Reads in the Left 
Variable Table 



5. SORT subroutine 

Sorts the entries 
in the Left Variable 
Table according to 
ascending For State- 
ment Number. 



Buffer 



Buffer 



SYSUT3 

Optimiza- 
tion Table 

(OPTAB) 



OTACHA subroutine 

Writes Optimization 
Table records on call 
from Construct OPTAB. 



Figure 48. Subscript Handling Phase. 

Diagram illustrating functions of principal constituent routines 



into main storage and (5) the entries in 
the table are sorted according to ascending 
For Statement Number, 

The Optimization Table (6) is construct- 
ed by transferring those entries in the 
Subscript Table, representing linear sub- 
script expressions in for statements, which 
are found to be optimizable in the particu- 
lar for statement, A subscript expression 
is optimizable if no assignment is made in 
the for statement to either the addend or 
the factor in the expression. This condi- 
tion is verified by comparing both addend 
and factor with all left variables in the 
particular for statement, listed in the 
Left Variable Table. If the condition for 
optimizability is satisfied, the entry in 
the subscript Table is transferred to the 
Optimization Table. 

If, however, a subscript expression is 
not optimizable in the for statement, the 
Subscript Table entry is disregarded. In 
addition, the particular for statement is 
classified an Elementary Loop, if an 
assignment is made to the factor, or if an 
assignment is made to the addend, and if 
the factor is equal to zero. 

The phase is terminated when all entries 
in the Subscript Table have been processed. 
The termination routine releases the pri- 



vate area used by the phase and branches to ( 
Control Section IEX40001, which initializes 
the Compilation Phase (Chapter 8) . 



PHASE INPUT/OUTPUT 



The Subscript Table and Left Variable 
Table are read into main storage from the 
SYSUT3 data set independently, in two sep- 
arate operations. (On the data set, SUTAB 
and LVTAB records are stored in random 
order, beginning at a point following the 
obsolete Identifier Table input to the Scan 
III Phase). Before each read operation, 
the data set is positioned (by a POINT 
macro instruction) at the correct starting 
address, stored by the Scan III Phase at 
the location named SULTSTRT. 

In each read operation, the records 
(both SUTAB and LVTAB records) are read 
into the work area provided for the parti- 
cular table involved. The records are 
identified by a key in the first four bytes 
(SUTB and LVTB, respectively) . After a 
record has been read in, the last four 
bytes of the record are saved. The follow- 
ing record is then read in, the key of the 
record overlaying the last (saved) bytes of 
the previous record. The key of the newly 
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read- in record is now inspected. If the 
key shows that the record does not belong 
to the desired table, it is overlayed by 
the succeeding record. If, however, the 
record belongs to the desired table, the 
previously saved bytes of the preceding 
record are reinserted, overlaying the key 
of the last read-in record. The last four 
bytes of the latter record are now saved 
and a further record is read in. 

Prior to output of the Optimization 
Table on the same SYSUT3 data set, the data 
set is repositioned to the start of the 
data set by a type T CLOSE. At termination 
of the phase, the data set is again reposi- 
tioned in readiness for input to the Compi- 
lation Phase. 



Phase, may be equal to binary 00 or 10 
the Optimization Table. 



in 



SUBSCRIPT,, LEFT VARIABLE AND FOR STATEMENT 
TABLES 



The Subscript Table (SUTAB) (f Left Varia- 
ble Table (LVTAB) , and For Statement Table 
(FSTAB) are described in Chapter 6. 



CONSTITUENT ROUTINES OF SUBSCRIPT HANDLING 
PHASE 



Main Storage 



For Statement Table 
(FSTAB) 



1 






J 














SYSUT3 

Subscript Table 
(SUTAB) 
Left Variable 
Table (LVTAB) 




SYSUT3 

Optimization 
Table (OPTAB) 




SUBSCRIPT 

HANDLING 

PHASE 


















. J 


_ , 





Figure 49. 



Main Storage 

For Statement Table 
(FSTAB) 



Subscript Handling 
Input/Output 



Phase 



The principal constituent routines of 
the Subscript Handling Phase are described 
below. The index in Appendix XI provides a 
cross-reference between the descriptive 
text and the relevant flowchart in the 
Flowchart Section. 

The position of the routines in the 
overall logical organization of the phase 
may be seen in Chart 072. 



INITIALIZATION 



The initialization routine acquires main 
storage for the private area pictured in 
Figure 51; sets a pointer to the beginning 
of the private area; and specifies program 
interrupt- I/O error exit routines • The 
Read SUTAB routine is then executed. 



OPTIMIZATION TABLE (OPTAB) 



The size of the private area is computed 
as follows: 2 x (Subscript Table) + 2 x 
(Optimization' Table buffer) + 8. The area 
sizes are obtained from the Area Size Table 
in the Common Work Area. 



The Optimization Table (OPTAB) is con- 
structed by the Subscript Handling Phase 
and transmitted to the Compilation Phase on 
the SYSUT3 data set. The Optimization 
Table lists the optimizable subscript 
expressions found in for statements classi- 
fied Counting Loops or Elementary Loops. 
The entries in the Optimization Table are 
copied from the Subscript Table (Figure 
44), provided neither the factor nor the 
addend in the subscript expression occurs 
as a left variable in the particular for 
statement. The entry in the Optimization 
Table is virtually identical to the corres- 
ponding entry in the Subscript Table, 
except that the Chain Bits in Byte 10 of 
the entry, set to binary 00 in the Scan III 



The private area provides two storage 
areas for the Subscript Table, one for 
input of the unsorted table and one for the 
sorted table. After the Subscript Table 
has been sorted, the input area is used,, 
first, for input and sorting of the Left 
Variable Table,, and second, for Optimiza- 
tion Table construction. Figure 51 illus- 
trates the use of the private area in the 
various stages of the Subscript Handling 
Phase. 

The first program interrupt exit 
TERMIN2, is stored in the location named 
ERET,, the address referenced by the PIROUT 
routine in the Directory. TERMIN2 is 
replaced by TERM1, after the GETMAIN 
instruction is executed. 
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11 



12 



m 
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~i 


|| | | | | | <Rel.. address 


1 


|<FSN>| <DSA address of |<DSA address of ]<DSA address of | <X> | <RN>| of [ in 


1 


| | array identifier >| factor > |addend> | | | c/p buffer> 


1 


L X X X X X x 


-j 



<FSN> 



<DSA address> 



<X> Bit 

Bit 1 
Bit 2-3 

Bits 4-7 

<RN> 



<For Statement Number of outermost embracing for 
statement in which the subscript expression is 
optimizable> 

<Last three bytes of identifier's internal name* 
containing Program Block Number and displacement 

<Sign of factor: 1=+, 0=-> 

<Sign of addend: 1=+, 0=-> 

(Chain Bits:* Binary 10 or 00 — not used in 

Compilation Phase) 

<Positional number of subscript> 

<Source text record number in which subscript ex- 
pression occurs> 

♦The use of the Chain Bits in the Subscript 
Handling Phase is discussed under the "Scan SUTAB" 
and "Construct OPTAB" routines. 



Figure 50. Optimization Table (OPTAB) entry 



TSTART 



Private Area* during 
Subscript Table Sorting 



ZSTAD=TSTART+4 



RPO (reg.10) 



RSUDEN 
=REND (reg.9) 



ZSUDAD 
=ZSORTSTA 



WORKX 



(reg.3) 



ZSUDEN 



Subscript Table (SUTAB) 



(Unsorted) 



ZSUTEN = length 



(Unused) 



Subscript Table (SUTAB) 
(Sorted) 



TSTART 

ZSTAD=TSTART 

+4 



RPO (reg.lOjj— 
t 



Private Area* during Left 
Variable Table Sorting 



REND (reg.9) 
=ZSORTSTA 
=ZLESTA 4 

WORKX i- 
(reg.3) j 



ZSUDAD 



ZSUDEN 



Left Variable Table 

(LVTAB) 
(Unsorted) 



ZLEVEN = length 



Left Variable Table 

( LVTAB )** 
(Sorted) 



(Unused) 



Subscript Table (SUTAB ; 
(Sorted) 



ZOTAWRI 



ZOTAFILL 

ZOTMAX 
ZLESTA 



RLV (reg.4) 



ZSUDAD 



RSUPO 
(reg.6) 



ZSUDEN 



Private Area* during 
Optimization Table Sorting 





Optimization Table 




(OPTAB) 
Buffer 2 




Optimization Table 




(OPTAB) 
Buffer 1 




(Unused) 




Left Variable Table 


♦ 


(LVTAB) 
(Sorted) 




(Unused) 




Subscript Table (SUTAB) 


i 


(Sorted) 



* The size of the private area is computed as 2* SUTAB +2* OPTAB Buffer + 8, the work area sizes being specified by the Area Size Table in 
the Common Work Area. See Appendix VIM for the Variation in area sizes as a function of the SIZE option. 

** If the length of the Left Variable Table is less than twice the Optimization Table buffer length, the sorted Left Variable Table work area 
begins at the end of Optimization Table Buffer 1 (ZOTMAX). 

Figure 51. Diagram illustrating use of the private area 
acquired by the Subscript Handling Phase 
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READ SUTAB 



Read SUTAB loads registers to specify 
the number of records, record key (SUTB) , 
and record length of Subscript Table 
records, and calls the READ subroutine, 
which reads the Subscript Table into the 
unsorted table work area. Scan SUTAB is 
then entered. 



SCAN SUTAB 



Scan SUTAB deletes all entries in the 
Subscript Table (Figure 44) for subscript 
expressions in for statements which are 
classified as non-optimizable. The routine 
also identifies multiple entries for the 
same subscript expression contained in 
nested for statements, and adjusts the 
Chain Bits in such entries to indicate if 
the entry is followed by one or more 
entries for the same subscript expression. 

For every entry in the Subscript Table, 
a test is made of the classification byte 
in the For Statement Table, corresponding 
to the For Statement Number in the entry. 



to determine if subscript optimization is 
possible. If optimization is not possible,, 
the first byte of the entry is set to 
X'FF', marking it for deletion, and the 
test proceeds with the next entry. A count 
is maintained of the deleted bytes for 
subsequent use in setting up the area for 
the sorted Subscript Table. 

Each entry not flagged for deletion is 
compared with the succeeding entry,, to 
determine if both entries refer to the same 
subscript expression in two nested for 
statements. In the affirmative case f the 
Chain Bits in byte 10 of each entry 
(originally equal to binary 00) are set, 
according to the key below, to indicate 
whether the entry relates to the outermost 
for statement in which subscript optimiza- 
tion may be possible, or to a nested for 
statement. The second entry is then com- 
pared with the next entry, and if this 
comparision shows that the same subscript 
expression occurs in a further nested for 
statement, the Chain Bits in the second and 
third entries are set accordingly. This 
comparison is repeated until the sequence 
of entries for the same subscript expres- 
sion in a series of nested for statements 
has been coded. The various Chain Bit 
settings are as follows: 



Multiple entries for subscript 
expressions enclosed by two or 
more for statements: 

First entry 



Second or intermediate 
entries 



h 



Last entry 



Single entries 



Chain Bit 

Settings 

(Binary) 



10 



01 



11 



00 



+-- 



Significance 



Entry relates to 
statement in which 
may be possible, 
entries exist. 



outermost embracing for 

subscript optimization 

One or more subsequent 



Entry relates to a nested for statement 
in which subscript optimization may be 
possible. One or more subsequent entries 
exist. 

Entry relates to innermost nested for 
statement in which subscript optimization 
may be possible. No subsequent entry 
exists. 

Entry relates to a single for statement in 
which subscript optimization may be possi- 
ble. No subsequent entry exists. 



_jl 



This system of Chain Bit settings serves 
to insure that only one Subscript Table 
entry is transferred to the Optimization 
Table, namely the entry relating to the 
outermost embracing for statement in which 
the subscript expression is optimizable. 
The Chain Bits are inspected, and may be 
manipulated, in the Construct OPTAB routine 
(entered after the entries have been 



sorted) to determine if the entry for the 
subscript expression relating to an embrac- 
ing for statement was transferred to the 
Optimization Table. 
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SORT SUTAB (SORTSU) 



SORTSU sets pointers to specify the 
addresses of the unsorted and sorted Sub- 
script Table work areas,, as well as the 
entry length, and calls the SORT subrou- 
tine , which sorts the Subscript Table 
entries by ascending For Statement Number, 
in the sorted work area, pointers are then 
set for the Optimization Table buffers 
(Figure 51) and the S0RTLE routine is 
entered. 



(the subscript expression being ncn- 
optimizable in the particular for 
statement), and the for statement in which 
the expression occurs is classified an 
Elementary Loop, provided 



1. The addend occurs as a left variable 
in the for statement and tha factor is 
a zero constant; or 

2. The factor occurs as a left variable 
in the for statement. 



READ AND SORT LVTAB (SORTLE AND SORT LEI) 



After the last entry in the Subscript 
Table has been processed, control is passed 
to TERMIN. 



SORTLE loads registers to specify the 
number of records, the record key (LVTB) , 
and the record length of Left Variable 
Table records , and calls the READ subrou- 
tine, which reads the Left Variable Table 
into the unsorted table work area. Poin- 
ters are then set to specify the addresses 
of the unsorted and sorted Left Variable 
Table work areas, as well as the entry 
length, and a call is made to the SORT 
subroutine, which sorts the Left Variable 
Table entries by ascending For Statement 
Number, in the sorted work area. 

When sorting of the Left Variable Table 
is complete, the SYSUT3 data set is closed 
in readiness for output of the Optimization 
Table. 



CONSTRUCT OPTAB (0PTAB) 



OPTAB compares the addend and factor in 
each "active" entry of the Subscript Table 
(Figure 4U) with the left variables listed 
in the Left Variable Table (Figure 43) for 
the corresponding for statement, and if no 
left variable is found which matches either 
addend or factor, transfers the Subscript 
Table entry to the Optimization Table 
(Figure 50). An entry in the Subscript 
Table is said to be "active" if no preced- 
ing entry for the same subscript expression 
relating to an enclosing for statement was 
transferred to the Optimization Table. An 
"active" entry is indicated if the entry's 
Chain Bits in Byte 10 are equal to binary 
10 or 00. The entries transferred to the 
Optimization Table represent the array sub- 
script expressions for which subscript 
optimization is exercised in the object 
code generated by the Compilation Phase for 
the relevant for statements. 

If a left variable is found which match- 
es either the addend or the factor, the 
Subscript Table entry is not transferred 



Where an optimizable subscript 
expression is enclosed by two or irore 
nested for statements classified Counting 
or Elementary Loops, the Subscript Table 
contains an entry for each for statement 
which embraces the subscript expression. 
With the aid of the Chain Bits in Byte 10 
of the entry, the entries in the case of 
such a chain of nested for statements are 
coded, before entry to OPTAB (see Scan 
SUTAB routine), so as to indicate whether 
the entry relates to the outermost for 
statement or a nested for statement, and 
hence, whether a subsequent entry exists, 
be possible in an embracing for statement, 
optimization may be possible in one or mere 
nested for statements. When it is deter- 
mined in OPTAB that a subscript expression 
is not optimizable in a particular for 
statement, a test is made to determine if 
the Subscript Table contains a further 
entry for the same subscript expression in 
a nested for statement. This is determined 
by inspection of the entry's Chain Bits. A 
subsequent entry is indicated if the cur- 
rent entry' s Chain Bits are equal to binary 
10 or 01. No subsequent entry is indicated 
if the Chain Bit settings are equal to 
binary 00 or 11. 

In the event the current Subscript Table 
entry's Chain Bits indicate that a subse- 
quent entry exists, a search is made for 
the next entry representing the same sub- 
script expression. The Chain Bit settings 
in this subsequent entry must be equal to 
binary 01 or 11, depending on whether the 
entry relates to an intermediate nested for 
statement, or the innermost nested for 
statement (see Scan SUTAB routine). When 
the entry has been located, its Chain Eits 
are inverted (to binary 10 or 00). This 
action serves to identify that the entry is 
now "active", i.e., that it relates 

1. To the outermost embracing for state- 
ment in which the subscript expression 
may be optimizable, or 

2. To the last (innermost) for statement 
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in which the subscript expression 
be optimizable. 



TERMINATION (TERMIN) 



nay Start cf Unsorted Table 
End of Unsorted Table 
Start of Sorted Table 
Entry Length 
(SUTAB-14; LVTAB-4) 



ZSTAD 

REND (Reg, 9) 

ZSORTSTA 

RENTRY (Reg. 11) 



TERMIN writes out the last Optimization 
Table record (by call to OTACHA) f closes 
the SYSUT3 data set, releases the main 
storage acquired for the private area, and 
passes control to the Initialization rou- 
tine of the Compilation Phase (Control 
Section IEX40001) , unless a terminating 
error has occurred (indicated by the switch 
TERR = 1) . In the latter case, control is 
transferred (by XCTL) to the Compiler ter- 
mination routine in Load Module IEX51. 



WRITE OPTAB (OTACHA) 



OTACHA provides the address of an alter- 
nate output buffer, and writes out the 
Optimization Table record in the current 
buffer on the SYSUT3 data set, OTACHA is 
called by the Construct OPTAB routine. 



READ SUTAB/LVTAB (READ) 



READ is called by the Read SUTAB and 
Read and Sort LVTAB routines. READ reads 
the Subscript Table and Left Variable Table 
from the SYSUT3 data set. See "Phase 
Input/Output" . 



SORT SUTAB/LVTAB (SORT) 



The SORT subroutine sorts the entries in 
the Subscript Table and the Left Variable 
Table according to ascending For Statement 
Number. SORT is called by SORTSU and 
SORTLEl. 

The parameters required by the SORT 
subroutine in sorting the two tables are 
specified as follows: 



See also Figure 51. 



Sorting consists in moving the entries 
in the unsorted table, one by one, tc a 
sorted area, so that the entries are 
arranged in groups with a common For State- 
ment Number. The sorting process consists 
of the following steps: 

1. Counting the number of entries in each 
group of entries having a common For 
Statement Number. Counting is carried 
out by inspecting the For Statement 
Number in each entry, moving sequen- 
tially through the unsorted table* and 
incrementing the count in a corres- 
ponding half-word of the Entry Count 
Table (Z COSTA). 

2. Constructing the Address Table 
(ZADSTA), containing the displacements 
in the sorted table where the first 
entry in each group with a common For 
Statement Number will be moved. In 
the case of the first group (For 
Statement Number 0), the displacement 
of the first entry in the sorted table 
is equal to zero. In the case of all 
subsequent groups, the displacement is 
computed by multiplying the entry 
length by the number of entries in the 
preceding group. 

3 . Moving the entries from the unsorted 
table to the sorted table. The desti- 
nation of each entry in the sorted 
table is specified by the start 
address of the sorted table, plus the 
displacement contained in the corres- 
ponding entry of the Address Table. 
After each move if the displacement in 
the Address Table is incremented by 
the entry length,, so that the resul- 
tant displacement specifies the rela- 
tive address where the next entry 
having the same For Statement Number 
will be moved. 
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CHAPTER 8: COMPILATION PHASE (IEX50) 



PURPOSE OF THE PHASE 



COMPILATION PHASE OPERATIONS 



The purpose of the Compilation Phase is 
to read the Modification Level 2 text 
produced by the Scan III Phase and to 
generate an object module which will per- 
form the operations indicated in the source 
module. 



Compilation is performed by approximate- 
ly 60 individual compiler programs. The 
compiler programs are activated by action 
of two central routines (named SNOT - Scan 
to Next Operator - and COMP- Compare) , which 
scan the Modification Level 2 text and 
which branch to the appropriate compiler 
program, according to the sequence of oper- 
ators found in the source text. 



For the most part the object code is 
determined by the individual operators (or 
sequences of operators) in the source text. 
In the case of for statements, however,, the 
overall structure of the code is governed 
by the particular for statement's loop 
classification in the For Statement Table, 
constructed in the Scan III Phase (Chapter 
6). The same For Statement Table also 
specifies, among other things, if subscript 
optimization is to be performed for optimi- 
zable subscript expressions contained in 
for statements. Optimizable subscripts in 
each for statement are listed in the Optim- 
ization Table. 



Operand addresses in the individual 
instructions are obtained from the five- 
byte internal names representing operands 
in the source text. 



Provided the requisite options have been 
specified, TXT records of the object code 
are generated on an external data set by a 
subroutine (named GENERATE) on call from 
the compiler programs . 



For all ALGOL-defined I/O procedures or 
standard mathematical functions invoked in 
the source module, ESD records are 
generated to call the appropriate routines 
from the ALGOL Library (Chapter 10). 
Library routines are combined with the 
object module by the Linkage Editor to form 
an executable load module. 



The Compilation Phase is initialized 
mainly by a routine which forms a control 
section (IEXU0001) of Load Module IEX40. 
The initialization routine acquires main 
storage for a private area and initializes 
tables and constants in the Common Work 
Area and in the phase's private area. It 
also initiates input of the first records 
of the Modification Level 2 text and the 
Optimization Table from the SYSUT2 and 
SYSUT3 data sets. After initialization has 
been completed, control is transferred (by 
XCTL to Load Module IEX5 (Compilation 
Phase proper) . 

The following description provides a 
brief survey of the basic operating frame- 
work of the Compilation phase, with special 
reference to the illustrative diagram in 
Figure 52. The logic of the object code 
generated is discussed in the later sec- 
tions describing the compiler programs 
under appropriate headings. Figure 53 pro- 
vides a guide to the various compiler 
programs . 

Within the Compilation Phase,, the SNOT 
routine (Scan to Next Operator) receives 
control after Load Module IEX50 has teen 
loaded, and proceeds to scan the Modifica- 
tion Level 2 source text in the current 
input buffer. Source text records are read 
from the SYSUT2 data set ty the JBUFFEP 
subroutine, on call frcm SNOT (and certain 
compiler programs) on detection of the 
record- end operator Zeta . The source text 
consists mainly of a sequence of one- byte 
operators and five-byte operands. Appendix 
I-c indicates the internal representation 
of all operators in the source text. 
Appendix II indicates the contents of the 
five- byte internal names of all operands 
declared or specified in the source module. 



SNOT scans the source text 
operator, stores the operand (i 
precedes the operator in the Op 
and then enters the COMP rout in 
CoMP's function is to a 
appropriate compiler program, a 
the pair of operators in the 
and in the Operator Stack. 



to the next 
f any) which 
erand Stack, 
e (Compare), 
ctivate the 
ccording to 

source text 



COMP determines the compiler program tc 
be entered, with the aid of one of three 
decision matrices and a compiler program 
Address Table. There are three decision 
matrices: a Program Context Matrix, a 
Statement Context Matrix and an Expression 
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COMPILATION PHASE (IEX50) 



Optimization 
Table 



Input Buffer (2) 



Optimization 



(The Optimization Table is used 
when code is generated to pre- 
ca leu I ate the base addresses of 
optimizable array subscript ex- 
pressions in for statements) 



Modification 
Level 2 
Source Text 



SNOT (Scan to Next Operator) scans the 
source text to the next operator, stacks the 
intervening operand (if any) in the Operand 
Stack, and enters CO MP. 



Input Buffer (2) 



Source Text 



|_ COMP (Compare) branches to the compiler 

* _______ __<.___:_,__! L.. »L_ ___._i.__ __• •_ 



(Source operator) 



* program determined by the operator pair in 
the source text and in the Operator Stack. 
Determines the compiler program to be en- 
tered with the aid of the decision matrices, 
entered via the Column and Row Vectors. 
Gets the program's address from the Address 
Table. . 



I 

L 



I- 



K- 




Compiler Programs The compiler programs compile object code, 
on the basis of the operators and operands in 
the Operator and Operand Stacks and in the 
input buffer. Object code is transferred to 
the output buffer and the SYSPUNCH and/or 
SYSLIN data sets by call to GENERATE. The 
compiler programs also store operators and 
operands in the stacks. Control in most cases 
is returned to SNOT. 



Subroutine Pool 



SNOT 
CO MP 
GENERATE 
IBUFFER 
NXTOPT 



Output Buffer 
Object Code 



Object Code 
TXT and RLD 
Records 



GENERATE Generats TXT 
records of object code, on 
call from the compiler pro- 
grams. 



The For Statement Table specifies 
each for statement's loop classifi- 
cation and indicates if optimization 
is to be performed for optimizable 
array subscript expressions in the 
for statement. 



Figure 52. Compilation Phase. Diagram illustrating phase operations 



Context Matrix (Appendices V-a to V-c) . 
The particular matrix referenced by COMP at 
any particular point is determined by the 
action of a compiler program at an earlier 
point in time. 



the number of the appropriate compiler 
program. The address of the compiler pro- 
gram is obtained from an entry in the 
Address Table which corresponds to the 
program number in the decision matrix. 



The decision matrices specify a particu- 
lar compiler program number for every pair 
of operators in the source text and in the 
Operator Stack. A decision matrix is 
entered with the aid of a Row Vector and a 
Column Vector. The Row Vector specifies a 
displacement for the stack operator while 
the Column Vector specifies a displacement 
for the source operator. The sum of these 
displacements gives the displacement of an 
element in the decision matrix containing 



Depending on the particular compiler 
program entered and on the source text- the 
compiler program may: 



1. Compile code in accordance with the 
stack operator- using the address data 
in the stack operand; release the 
stack operator and operand; and return 
control to SNOT (or COMP) ; or 
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Store the source operator in the Oper- 
ator Stack, and return to SNOT; or 



Main Storage 



Release the stack operator and return 
control to COMP or SNOT; or 



i , 



4. Compile code in accordance with the 
source operator, release one or more 
operands,, and return to SNOT. 



The foregoing list indicates only a few 
of the compilation actions taken by the 
compiler programs, and represents only a 
small sample of the range of compilation 
alternatives . 



In practical terms, object code is gen- 
erated by means of a call to an appropriate 
entry point of the GENERATE subroutine. 
The call specifies the address and length 
of a sequence of one or more instructions 
appropriately edited by the compiler pro- 
gram. Depending on the Compiler options 
specified, GENERATE produces TXT records of 
the object code on the SYSLIN and/or SYS- 
PUNCH data sets. 



Compilation is terminated in the Termi- 
nation Phase (IEX51), which receives con- 
trol from Load Module IEX50, when the CPEND 
routine (entered from Compiler Program No. 
3 on detection of the prog ram- end operator 
Omega ) issues the XCTL macro instruction. 



Modification 
Level 2 
Source Text 



Compilation 

Phase 

Initialization 



rxi 

| Main Storage 

| Program Block Table II 

I Program Block Table III 

{ For Statement Table 

I Decision Matrices 

Modification Level 2 

J Source Text 

I Optimization Table 

l —J"- 



COMPILATION 

PHASE 

(IEX50) 



Main Storage i 

Program Block Table I 
I/O Table 
Label Address Table 
Error Pool 



TERMINATION 

PHASE 

(IEX51) 



* The first two records of the source text and the Optimization Table 
are read into main storage by the Compilation Phase initialization 
routine (Control Section IEX4000I) in lood Module IEX40. 



SYSLIN/5YSPUNCH 



TXT and RLD 
records of gene- 
rated object 
code 



SYSLIN/SYSPUNCH 



TXT, RLD, ESD 
records of 

Label Address Table 
Program Block Table 
Data Set Table 
Address Table 
END record 



SYSPRINT 

Storage Require- 
ments or 
Diagnostic 
Messages 



Figure 53. Compilation Phase Input/Output 



The Termination Phase generates ESD, 
TXT, and RLD records for the object time 
Program Block Table, Label Address Table, 
Data Set Table, and Address Table, or, if 
any errors were detected during the Compi- 
lation Phase, prints out diagnostic messa- 
ges for the errors recorded in the Error 
Pool. Control is returned to the final 
exit routine in the Directory after main 
storage has been released and data sets 
closed. 



The first two records of the Modifica- 
tion Level 2 source text,, and the Optimiza- 
tion Table are read in by the initializa- 
tion routine in Load Module IEX40. All 
subsequent input is handled by the JBUFFER 
and NXTOPT subroutines. 

ESD, TXT, and RLD records are output on 
the SYSLIN and/or SYSPUNCH data sets by the 
GENERATE subroutine. 



OPERATOR/ OPERAND STACKS 



PHASE INPUT/OUTPUT 



input /out put operations in the three 
modules (IEX40,IEX50 and IEX51) of the 
Compilation Phase are represented in Figure 
53. The same figure also indicates the 
tables transmitted between these modules 
via main storage. 



The Operator and Operand Stacks occupy 
opposite ends of a combined 
Operator/Operand Stack area, acquired at 
initialization of the Compilation Phase 
(see Figure 59) . When operators (one byte 
in length) are entered in the Stack, a 
pointer (OPTK) is incremented. When oper- 
ands (five bytes in length) are entered in 
the stack, a pointer (OPDK) is decremented. 
Operators are released by decrementing 
OPTK, while operands are released by incre- 
menting OPDK. 
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The function of the Operator and Operand 
Stacks is to provide temporary storage for 
operators and operands in the source text, 
as well as for other special-purpose opera- 
tors and operands originating in the com- 
piler programs). In principle, a sequence 
of operators and operands is stacked until 
such time as an operator in the source text 
is encountered which marks the end of a 
defined logical entity or relationship and 
which signifies that object code for one or 
more of the preceding operators may be 
generated. The stacking of operators and 
operands is equivalent to deferring the 
generation of object code until such time 
as the logical meaning of an operator 
sequence has been clarified. 

Operators are stacked by a majority of 
the compiler programs. Operands originat- 
ing in the source text are stacked by the 
SNOT routine, other special-purpose oper- 
ands by the compiler programs. 

Appendix I-d indicates the internal rep- 
resentation of the various stack operators. 
The operators are defined in the Explana- 
tion accompanying Appendix I-d. 

Appendix II indicates the content of the 
five-byte operands representing identifiers 
and constants in the source module, while 
the notes accompanying Appendix X list the 
special-purpose operands stacked by the 
compiler programs. 

In the object module generated by the 
Compiler, the object time operands 
(represented by addresses) include: 

1. Operands specifically declared or 
specified in the source module (e.g. 
variables, constants or labels); and 

2. Intermediate values or addresses. 
Intermediate values (or addresses) 
represent the intermediate results 
obtained at object time from opera- 
tions (specified in the source module) 
on operands. Intermediate values or 
addresses may be contained in reg- 
isters, or in Data Storage Area loca- 
tions. 

The above breakdown excludes a third 
category, not considered here, comprising 



operands involved in purely 
functions . 



administrative 



With certain exceptions, every operand 
being processed by a compiler program, 
whether the operand be a variable, a con- 
stant, an address, or an intermediate value 
or address, is represented by a correspond- 
ing internal name in the Operand Stack, 
pointing to a corresponding storage loca- 
tion in an object time Data Storage Area or 
an entry in the Label Address Table. As 
soon as code is generated to load the value 
or address of an object time operand in a 
register, the corresponding operand in the 
Operand Stack is modified to show the value 
(address) in a register. A new storage 
field (or save area) is ° reserved for the 
register in the current Data Storage Area 
when the register is first assigned (see 
"Control of Object Time Registers"). If 
the contents of the register are subse- 
quently stored at object time in the res- 
erved storage field,, the operand is 
appropriately modified (see below). In the 
same way, as soon as code is generated tc 
move a value from one Data Storage Area 
field to another field reserved for an 
intermediate result, the operand is modi- 
fied correspondingly. When an operand has 
been processed in the object code, or when 
a value or address in a register has teen 
finally stored or disposed of (and the 
register relinquished), the corresponding 
entry in the Operand Stack is released. 

In analogous manner,, an operator is 
released from the Operator Stack when code 
has been generated in accordance with the 
operator. 

The handling of stack operators and 
operands is illustrated by the example in 
Figure 54,, which shows the code generated 
when the semicolon marking the close of a 
simple arithmetic statement is encountered. 
The operators and operands in the statement 
will have been entered in their respective 
stacks as shown, before the semicolon is 
encountered. The illustration shows the 
adjustments to both stacks, following each 
step in the generation of code. The exam- 
ple assumes that all operands in the state- 
ment are variables and that they are all 
declared in the embracing block. 
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s A, B and C declared integer simple variables in the source module. 



(In the Modification Level 2 text, the identifiers would be represented by the 
5-byte internal names shown in the Operand Stack below, and the operators 
by one-byte operators, as in Appendix l-d.) 



Object Code 



(B) 


X'C0 3)' 


<PBN> 


<DIS.P-B> 


(A) 


X'C0 31' 


<PBN> 


<DISP-A> 


(C) 


X'C0 31' 


<PBN> 


<DISP-C> 






(Other operands) 







(Other 1 
operators) 




' = 




+ 



(B) 


X'C0 31' 


<PBN> 


<DISP-B> 


CX) 


X'90 31' 


<PBN> 


<X> <DISP-X> 


(C) 


X'C0 31' 


<PBN> 


<DISP-C> 






(O 


her operands) 



• (Other l 
operators) ' 



L REGX,<DISP-A>(CDSA) 



EGX) 


X'90 SI- 


<PBN> 


<X> <DISP-X> 


(C) 


X-COST 


<PBN> 


<DISP-C> 






(O 


her ope ran 


*> 



{(Other 
operators) 



A REGX,<DISP-A>(CDSA) 



"(Other | 
[operators) | 



ST REGX,<DISP-A>(CDSA) 




1 . Pointers OPDK (reg. 9) and OPTK (reg. 10) point to the last entry in the 
Operand and Operator Stacks. 

2. Displacement pointer P (reg. 7) indicates the displacement of the last reserved 
storage field in the object time Data Storage Area (DSA) of the current block 
or procedure. Whenever a change in scope occurs, the PBNHDL subroutine 
stores the contents of P, representing the DSA displacement for the last block 
or procedure, in a corresponding entry of PBTAB2, and loads P with the DSA 
displacement for the newly entered (or reentered) block or procedure, con- 
tained in the corresponding entry of PBTAB2. 

P is incremented whenever additional storage bytes are reserved in a Data 
Storage area, e.g. for an intermediate value or address in a register. P may 
subsequently be decremented, as in the illustration, if code is not subsequently 
generated to store an intermediate value (address) in the reserved storage field. 
If, however, code is actually generated to store the intermediate value (address), 
the displacement in P is stored (by the MAXCH subroutine) in a corresponding 
entry of PBTAB3, thus recording the minimum length required (up to that particu- 
lar point) for the particular Data Storage Area at object time. 

3. Displacement pointer PRPOINT (reg. 6) indicates the displacement in bytes of 
the next object code instruction to be generated, counted from the start of Con- 
stant Pool No. 0. PRPOINT is updated by the GENERATE subroutine after every 
segment of code is generated. In the compiler programs, the length in PRPOINT 
is used as a relative address in specifying branch addresses (as well as addresses 
of declared labels) in the object module. In such cases, the displacement in 
PRPOINT is stored in the appropriate entries of the Label Address Table. At 
linkage edit time, the relative addresses in the Label Address Table are conver- 
ted to absolute addresses. 

4. The abbreviations in the Operand Stack entries have the following significance. 

PBN - Program Block Number of the block or procedure in which 

the identifier is declared or specified. 
DISP-A 

DISP-B - Displacement of the identifier's assigned storoge field in the 
DISP-C object time Data Storage Area. 



DISP-X - Displacement of Register X's reserved storage field in the 
object time Data Storage Area. 

X - Number of the object time register containing the interme- 

diate value. The register may beany one of the registers avail- 
able for general computational use (see "Control of Object 
Time Registers"). 

Concerning the characteristic in the first two bytes of the stack operand, see 
the accompanying text. Compare also with Appendix II. 

5. The notation in the illustrated object code has the following significance. 



REGX 



DISP-A 
DISP-B 
DISP-C 



The name of the object time register whose number (X) is 
contained in the stack operand. The register may be any 
one of the registers available for general computational use 

(see "Control of Object Time Registers"). 

The displacement of the identifier's assigned storage field 
in the object time Data Storage Area, the displacement is 
obtained from the relevant stack operand. 

The name of base register 10, containing the address of the 
current Data Storage Area, i.e. the object time Data Stor- 
age Area of the current block or procedure. CDSA appears 
in all of the illustrated instructions because, in the assumptions 
of this simple case, all of the identifiers are declared in the 
immediately embracing block. If any one of the identifiers 
had been declared outside the embracing block, the base 
register in the instruction involved would have been GDSA 
(reg. 9) — Global Data Storage Area. In the object module, 
GDSA is always used to address the relevant Data Storage 
Area, where an operand is not declared or specified in the 
current block or procedure; CDSA at all times addresses the 
current Data Storage Area. 



Figure 54. Diagram illustrating the function of the Operator/Operand Stacks 
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Figure 55 indicates the contents of the 
operand representing an intermediate value 
or address contained in a register or 
contained in a Data Storage Area field f 
i.e., the Data Storage Area of the block or 
procedure having the Program Block Number 
<PBN>. 



r t t t 1 

|<Characteristic>|<PBN>| <Reg. | <Displace- | 
| | | No.>|ment in DSA>| 

L L ± J. J 



010 



101 



Oil 



an intermediate value con- 
tained in a Data Storage 
Area field 

an address contained in 
the register indicated in 
the operand 

an address contained in a 
Data Storage Area field 



<Characteristic> - (See text) 



<PBN> 



<Reg. No.> 



displacement in 
DSA> 



<Program Block Number of 
the embracing block or 
procedure> 

<Number of the register 
containing the inter- 
mediate value/address> 
or <zeros> if operand 
in Data Storage Area 



displacement of the 
register's storage 
field in the Data Stor- 
age Area of the block 
or procedure indicated 
by PBN> 



Figure 55. Five- byte operand representing 
an intermediate value or 
address contained in an object 
time register or temporarily 
stored in the register's res- 
erved storage field in a Data 
Storage Area. 

Except for certain special- purpose oper- 
ands, the location and type of every oper- 
and at object time is indicated by specific 
binary settings in the characteristic of 
the relevant stack operand (namely, bits 0, 
1, and 2 of Byte 0) . The significance of 
the various settings is as follows: 



Charac teri stic 
Byte 

(Bits 0, 1 4 2) 
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Significance 

Operand represents: 

a variable or constant 
with an assigned storage 
field in a Data Storage 
Area or a Constant Pool, 
or the address of a 
declared procedure, switch 
or label with an assigned 
entry in the Label Address 
Table 

a value contained in the 
register indicated in the 
operand 



CONTROL OF OBJECT TIME REGISTERS 



Of the 16 general purpose registers 
available for use by the object module, 
seven registers are restricted to specific 
addressing functions. The remaining eight 
general purpose registers, as well as all 
four floating-point registers,, are availa- 
ble for general computational or addressing 
purposes. The division of register assign- 
ments is as follows: 

Available for general computational use 
General Purpose Registers 0-7 
(GPR0,... ,GPR7) 

Floating Point Registers 0,2,4, and 6 
(FPR0,..,. ,FPR4) 

Available for general addressing use 
General Purpose Register 8 (ADR) 

Restricted to Specific Addressing Func- 
tions 

General Purpose Registers 9-15. The 
use of each of these registers is 
indicated in Chapter 11, under "Object 
Time Register Use" . 

To provide for the logical and efficient 
assignment of the registers available for 
general computational and addressing use, 
two systems of register control are emp- 
loyed, one for general purpose registers, 
the other for floating-point registers. 
These control systems, which are administ- 
ered by a set of subroutines indicated 
below, have two purposes: 

1. To ensure that, whenever a competing 
demand arises for the use of a given 
register, any intermediate value con- 
tained in that register is duly saved; 
and 

2. To minimize the number of Store Reg- 
ister instructions in the object 
module (in other words,, to maximize 
the register holding time) . 

Figure 56 illustrates the control fields 
used in the control of object time general 
purpose registers. 
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general purpose register 
among registers through 7 
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GPR 2) 



(Registers: 876 543 2 10) 



Object Time General Purpose 
Registers 0-8 

_ In use in object code 

GPR 0: F ™j X 

I I 

I 1 

GPR 1: I IX 

L I 

I 1 

GPR 2: | | X 

I I 

I 1 
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I I 
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Fixed Point Operand Address Table (RUTI) 



Operand Stack 



Entry for GPR 0: 

Entry for GPR 1 : 

Entry for GPR 2: 

Entry for GPR 3: 

Entry for GPR 4: 

Entry for GPR 5: 

Entry for GPR 6: 

Entry for GPR 7: 

Entry for GPR 8: 



A (Stack operand) 



A (Stack operand) 



A (Stack operand) 



A (Stack operand) 
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* The Operand Stack may at the same time contain operands (not specifically identified in the 
figure) representing intermediate values in object time floating point registers, and pointing 
to 8-byte storage fields in the Data Storage Area - see Figure 57. 



Object Time Data Storage Area 
(of current block or procedure) 



1 



(Storage fields reserved for identi- 
fiers declared or specified in the 
current block or procedure) 




Storage fields re- 
reserved for object 
time general pur- 
pose and floating 
point registers used 
in the object code 
• for the current 
block or procedure, 
and for other 
object time data 4 



Figure 56. Control Fields governing use of object time general purpose registers, 
showing relationships to Operand Stack,, Data Storage Area and registers 



The two-byte Fixed Point Cycle Indicator 
(CII) indicates the number of the last 
assigned register among general purpose 
registers through 7. When a register is 
required for computational purposes, CII is 
increased by one (or reset to if CIIf=7) . 
The resulting number is the number of the 
register to be used. This rotational 
assignment of registers ensures a maximum 
register holding time. (Where an even or 
odd pair of registers is required for 



integer division cr multiplication, CII may 
be increased by two). 

The two-byte Fixed Point Register Use 
Indicator (RID indicates the registers 
currently in use among general purpose 
registers through 8. A register in use 
is indicated if the corresponding bit is 
turned on. If the register is currently in 
use, a Store Register instruction must be 
generated before the register can be used 
in the subsequent object cede (see below). 
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The 36- byte Fixed Point Operand Address 
Table (RUTI) provides a full word for each 
of registers through 8 . Whenever code is 
generated to load a value (or address) in a 
register, a four-byte storage field, or 
save area, is reserved for the register in 
the current Data Storage Area. The rela- 
tive address of the save area is recorded 
in the relevant Operand Stack entry, while 
the address of the Operand Stack entry is 
stored in the register's full-word entry in 
the Operand Address Table (RUTI). If, when 
a given register is to be used, the Reg- 
ister Use Indicator (RID shows that the 
register is currently in use, code is first 
generated to store the contents of the 
register in the storage field specified by 
the relevant Operand Stack entry. Thereaf- 
ter, a new save area is reserved for the 
register in the current Data Storage Area, 
its displacement being recorded in the 
current Operand Stack entry, and the 
address of the Operand Stack entry being 
stored in the appropriate entry of the 
Operand Address Table (RUTI) . 



When a register is released (i.e., as 
soon as it is no longer needed), the 
register's save area in the Current Data 
Storage Area is relinquished, and the cor- 
responding bit in the Register Use indica- 
tor (RID is turned off. The Cycle Indica- 
tor (CII) is reduced by one (or reset tc 7 
if CII=0), and the Operand Address Table 
(RUTI) is unaffected. 



Object time register control is handled 
primarily by R0UTINE1, ROUTINE 2 f . . . , 
through R0UTIN15. 



Figure 57 illustrates the control fields 
used in the control of object time 
floating-point registers. The function of 
these fields is entirely anologous to that 
of the control fields which govern the 
assignment of general purpose registers 
(Figure 56) . 



Floating Point Cycle Indicator (CIR) 




-(All zeros - unused)~ 



Floating Point Register Use Indicator (RIR) 
1 



—(All zeros - unused)- 



I 1 I I 
I I I 



I I I 
Oil |1 10 
I I I 



(Registers: 



2 ) 



(Number of last assigned 
floating point register - FPR 4) 



Object Time Floating Point Registers 0,2,4,6 

In use in object 

I 1 ^£ 

FPR 0: j I 

| 1 Y 

FPR 2: J 

I 1 y 

FPR 4: I _J 

, 

FPR6: L I 



Floating Point Operand Address Table (RUTR) 

Entry for FPR 0: 

Entry for FPR 2: 

Entry for FPR 4: 

Entry for FPR 6: 



Operand Stack* 



? * 


i 





I 3 5 






<Characteristic> 


<PBN> 


<Displacement> 


A (Stack operand) 


" 


" 




A(Stack operand) 


" 


" 


4 ! ■ 

1 






" 


" 






" 


" 


7\ - 




" 


" 





* The Operand Stack may at the same time contain operands (not specifically identified in the 
figure) representing intermediate values or addresses in object time general purpose registers, 
and pointing to 4-byte storage fields in the Data Storage Area - see Figure 56. 




Object Time Data Storage Area 
(of current block or procedure) 

I 

I 

(Storage fields reserved for identi- 
fiers declared or specified in the 
current block or procedure) 



I 
I 



Storage fields 
reserved for object 
time general pur- 
pose and floating 
point registers used 
in the object code 
for the current 
block or procedure, 
and for other 
object time data. 



Figure 57. Control Fields governing use of floating point registers, 

showing relationships to Operand Stack, Data Storage Area and registers 
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DECISION MAT RICES 



The basic control framework of the Com- 
pilation Phase is expressed by a set of 
three decision matrices named the Program 
Context Matrix, the Statement Context 
Matrix and the Expression Context Matrix 
(Appendices V-a, V-b r and V-c) . Each 
matrix specifies a particular compiler pro- 
gram to be activated (by the COMP routine) 
for every possible pair of operators in the 
source text and in the Operator Stack, 



The operative decision matrix at any 
particular point in time depends, in gener- 
al, on the logical context of the source 
module currently being processed. Matrix 
changes are effected by the compiler pro- 
grams according to changes in logical con- 
text, as indicated by the operators in the 
source module- A switch from one matrix to 
another is effected by incrementing or 
decrementing the matrix base register CCT 
(register 11) • A prospective change to a 
specific decision matrix may be specified 
by the storage of an appropriate operator 
( PRC , STC , or EXC ) in the Operator Stack, 
whose subsequent detection will cause the 
relevant compiler program to switch to the 
appropriate matrix. 



The operative decision matrix is ref- 
erenced (by the COMP routine) with the aid 
of a Column Vector and a Row Vector. The 
Column Vector consists of a series of 
2- byte elements, each containing a dis- 
placement value associated with any given 
operator in the source text. The Row 
Vector consists of a series of 2 -byte 
elements, each containing a displacement 
value associated with any given operator in 
the Operator stack. The sum of the dis- 
placements for the source operator and the 
stack operator gives the displacement of an 
appropriate half-word in the operative 
decision matrix addressed by pointer CCT. 
The half-word thus specified multiplied by 
four contains the relative address of an 
entry in the Address Table, containing the 
absolute address of the relevant compiler 
program. 



Register Register 
Number Name 






(Variable) 


1 


(Variable) 


2 


(Variable) 


3 


(Variable) 


H 


(Variable) 


5 


SBR 


6 


PRPOINT 



10 



11 



12 



13 

14 
15 



SOURCE 



OPDK 



OPTK 



CCT 



BASE 



WAREG 



(Variable) 
(Variable) 



Use 

Variable use 
Variable use 
Variable use 
Variable use 
Variable use 
Base register of the 
Subroutine Pool 
Displacement pointer 
to the next instruc- 
tion in the generated 
code 

Displacement pointer 
tc the last reserved 
storage field in the 
object time Data 
Storage Area of the 
current block or pro- 
cedure 

Pointer to the cur- 
rent operator in the 
Modification Level 2 
source text 
Pointer to the latest 
entry in the Operand 
Stack 

Pointer to the latest 
entry in the Operator 
Stack 

Base register of the 
operative decision 
matrix 

Base register of the 
operative compiler 
program 

Base register of the 
Common Work Area 
Variable use 
Variable use 



COMPILE TIME REGISTER USE 



The use of registers 6 (PRPOINT) ,7 (P) , 
9 (OPDK) , and 10 (OPTK) is illustrated in 
Figure 54. 



CONSTITUENT ROUTINES OF THE COMPILATION 
PHASE 



The principal constituent routines of 
the Compilation Phase are described belcw. 
The relevant text and flowchart in which 
each routine is discussed or outlined can 
be found with the aid of the index in 
Appendix XI. The diagram in Figure 58 
provides a guide to the various routines 
from the standpoint of the logical elements 
of the source module processed by each 
routine. 



The general purpose registers are used 
in the Compilation Phase as follows: 



All primary control routines, i.e., all 
routines entered directly from COMP, are 
referred to as "compiler programs". Sub- 
sidiary routines are referred to as 
"routines" or "subroutines". 
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COMPILATION PHASE 
(IEX50) 
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(from Subscript 
Handling Phase) 
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Initialization 
of Compilation 
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loading 
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compiler 
program 






GENERATE 
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object code to 
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Generation of 
actual parameter 
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Blocks and Compound Statements 
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Switch 
Declarations 


CP4, CP85, CP56, CP59 










Switch 
Designator 
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Generation of 
number conversion 
calls 
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Labels 


Label 
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CP6. CP56. CP62 






ROUTINE1-15 
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Object time 
register control, 
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and loading and 
storing 
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Arr 


Array 
Declarations 


CP4, CP52, CP36, CP5I, CP54 










Subscripted 
Variable 


CP4I, CP38 












TARITHM 
ARRTEST1 
OPDTEST 
Operand 
recognition 
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Procedure 
Declaration 


CP4, CP16 














Procedure 
Calls 


CP64, CP57 






















CLEARRG 
Register save 
generation 
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Code Procedure 
Declarations 


CP4, CP83, CP16 




Cod Pro ed r s 












Code Procedure 
Calls 


CP64, CP57 
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MAXCH 

Data Storage Area 

augmentation 




Standard 

Procedure Calls CP64, CP61 
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For Statements 


CP6, CP40, CP43, CP45, CP47, CP49, CP81 


























SCHDL 
PBNHDL 
Semicolon Count 
and Program Block 
Number Handling 
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Assignment Statements 


CP12, CP20, CP21 
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Conditional Statements 


CP8, CP78, CP17, CP18 
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SERR 

Error recording 




^ 










) 
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CP80, CP34, CP65, CP78, CP87, CP79 
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CP64, CP66, CP67, CP63, CP69, CP68 






JBUFFCH 
NXTOPT 

Input of Modifica- 
tion Level 2 source 
text and Optimi- 
zation Table 


xpressions 
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Boolean Expressions 


CP64, CP65, CP67, CP76, CP77, CP68 
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LATRES 
Label Address 
Table entry 
reservation 


Semicolon Handling 


CP24, CP25, CP23, CP7 
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Context Switching 


CP19, CP22, CP33, CP70, CP71 
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Logical Error Recognition 


CP26, CP27, CP28, CP29, CP30, CP3I, 
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Figure 58. Diagram showing the compiler programs 

in relation to the logical elements of the source module 
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A summary of the compiler programs, 
showing, among other things, the stack 
operators and operands at entry and exit, 
errors detected, and subroutines called, is 
provided in the table in Appendix X, 



HCOMPMOD Control Field. Except for the 
first two records,, which are read in by 
Control Section IEX40001, Qptimization 
Table records are read from the SYSUT3 data 
set by the NXTOPT subroutine, on call from 
Compiler Programs 40, 47, and 49. 



IBUF2 



PHASE INITIALIZATION 



Compilation Phase initialization is 
divided between Control Section IEX40001 in 
Load Module IEX40, and a short initializat- 
ing routine at the start of Load Module 
IEX50. Control Section IEX40001 acquires 
main storage for the private area pictured 
in Figure 59; constructs Program Block 
Table III in the Common Work Area; reads in 
the first two records of the Modification 
Level 2 source text and the Optimization 
Table; and transfers control (XCTL) to Load 
Module IEX50. 

The initializing routine at the start of 
Load Module IEX50 addresses the Program 
Context Matrix in the Common Work Area; 
specifies new program interrupt, I/O error 
and End of Data exits; and enters the Scan 
to Next Operator routine. 

At entry to IEX40001, the address of the 
terminating routine INERR1 is stored at 
ERET, the location referenced by the Pro- 
gram Interrupt routine (PIROUT) and the I/O 
Error Routines (SYNAD and SYNPR) in the 
Directory. INERR1 is replaced by INERR2 
after the private area has been acquired. 

The GETMAIN instruction for the private 
area 'pictured in Figure 59 is issued after 
the area sizes of all work areas have been 
totalled. The area sizes are obtained from 
the Area Size Table (see Chapter 3) in the 
Common Work Area, except in the case of the 
Label Address Label, for which the area is 
fixed at 4096 bytes. 

Source Text Buffer 2 is acquired only if 
the Modification Level 2 source text is to 
be read into main storage from the SYSUT2 
data set (i.e., the buffer is not acquired 
if the entire source text was transmitted 
by the Scan III Phase in Source Text Buffer 
1 in the Common Area, indicated by the SPIC 
switch in the HCOMPMOD Control Field). 
Except for the first two records, which are 
read in by Control Section IEX40001, Modi- 
fication Level 2 text records are read from 
the SYSUT2 data set by the JBUFFER subrou- 
tine on call from SNOT (Scan to Next 
Operator) , and Compiler Programs 4, 51, and 
66. 

Similarly, buffers for the Optimization 
Table are acquired only if the table was 
constructed by the Subscript Handling 
Phase, indicated by the OPT switch in the 



SOURCE — * 



OPBUF1 



AOPTABE - — 
OPUBF2 — 



AOPTABE — - 



OPTK 



OPDK 
LATAB 



LN 



Source Text Buffer 2" 1 



Optimization Table Buffer 1 " 



Optimization Table Buffer 2 * 



ALPHA 



Operator Stack 



Operand Stack* 



Label Address Table (4K) 

(28 fullwords reserved 
for object time address 

of_ ^^^E^^^fl^HF-S?! — . 

(Space reserved for object time 
addresses of labels, switches 
and procedures declared in the 
source module) 



*Area size specified by Area Size Table 
in Common Work Area. See Appendix VIII 
for the variation in area sizes as a 
function of the SIZE option. 
Figure 59. Private Area acquired by Con- 
trol Section IEX40001 for the 
Compilation Phase (IEX50) 

The Operator and Operand Stacks occupy 
opposite ends of a combined 
Operator/ Operand Stack area. The handling 
of the Operator and Operand Stacks is 
discussed elsewhere in this chapter. 
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A total of 4096 bytes are allocated for 
the Label Address Table, This includes 
space for entries assigned in the Scan I/II 
Phase to labels, switches, and procedures 
declared in the source module. The remain- 
der of the Label Address Table is used in 
the Compilation Phase for branch addresses 
produced by the Compiler in the object 
code. The displacement of the last 
assigned entry is indicated by displacement 
pointer LN (Label Number), transmitted from 
the Scan I/II Phase via the Common Work 
Area. 



On entry to Load Module IEX50,, the 
address of the terminating routine CPERR1 
is stored at ERET, the location referenced 
by the Program Interrupt routine PIROUT and 
the I/O Error routines SYNAD and SYNPR in 
the Directory. After loading register 11 
(CCT) with the address of the Column Vector 
of the Program Context Matrix (see Appendix 
IV-a), the End of Data exits JB3 and NX4 
are specified for the SYSUT2 and SYSUT3 
data sets, and the Scan to Next Operator 
routine (SNOT) is entered. 



The first 28 full-words in the Label 
Address Table are reserved for the object 
time addresses of standard procedures which 
may be called in the source module. At 
initialization, the first bit in each full- 
word is set = 1. If, subsequently, a call 
for the standard procedure is detected, the 
bit in the corresponding entry is reset to 
(by Compiler Program No. 64). In the 
Termination Phase, ESD records are 
generated for all standard procedures which 
were called, indicated by the first bit in 
the entry being equal to 0. 

Program Block Table III is constructed 
in the Common Work Area by transferring the 
contents of each two-byte entry in Program 
Block Table II (see Chapter 5) to the first 
two bytes of the corresponding four- byte 
entry in Program Block Table III. The last 
two bytes in the new entry are zero-set. 

Program Block Table III is located in 
the Common Work Area. In the same way, 
space is provided for various other tables, 
including : 

Data Set Table (DSTAB) 
I/O Table (IOTAB) 
Subscript Table (SUTABC) 

The tables are described elsewhere in this 
chapter. 

As soon as the first two records of the 
Modification Level 2 source text and the 
Optimization Table have been READ (and 
CHECKed) from the SYSUT2 and SYSUT3 data 
sets, control is passed (by XCTL) to Load 
Module IEX50 (Compilation Phase proper) . 
Before the respective READ instructions are 
issued, the address of a point to be 
entered in the event of an End of Data 
conditon, is stored at EODUT2 and EODUT3 in 
the Common Work Area, the locations ref- 
erenced by the End of Data routines EODAD2 
and EODAD3 in the Directory. If the entire 
source text was transmitted by the Scan III 
Phase in the Common Area buffer, or if no 
Optimization Table was constructed 
(indicated, respectively, by the SPIC and 
OPT switches in the HCOMPMOD Control 
Field) , the corresponding READ and CHECK 
macro instructions are bypassed. 



SCAN TO NEXT OPERATOR (SNOT) 



SNOT scans the Modification Level 2 
source text to the immediately following 
operator, and branches to COMP. The new 
operator is addressed by pointer SOURCE 
(register 8). If the operator was preceded 
by an operand,, represented by a five -byte 
internal name,, the operand is stored in the 
Operand Stack and a switch named OPDT is 
turned on. OPDT is inspected by the var- 
ious compiler programs to determine whether 
specific processing treatment of a preced- 
ing operand is required, or to identify a 
syntactical error condition. 

In a majority of the compiler programs, 
the exit (or return address) is that of 
SNOT. In other compiler programs the 
return address is SNCTSP (or SPEC), a 
special entry point of COMP. In CP3, 
entered on recognition of the program-end 
operator Omega ,, the exit is to CPEND, which 
transfers control to Load Module IEX51. 

SNOTSP is specified as the return 
address where the operator may not logical- 
ly be followed by an operand. If an 
operand follows, SNOTSP records Error No. 
191 ; , and continues to search for the next 
operator. 

In both SNOT and SNOTSP, a call is made 
to the JBUFFER subroutine (which addresses 
the alternate buffer containing a new 
source text record) , if the record-end 
operator Zeta is detected. 



COMPARE (COMP) 



COMP branches to the compiler program 
specified in the current decision matrix 
for the particular pair of operators in the 
source text and in the Operator Stack, 
addressed respectively by pointers SOURCE 
(register 8) and OPTK (register 10). 

COMP is entered from SNOT ; , SNCTSP and 
from certain compiler programs. 
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BLOCKS AND COMPOUND STATEMENTS 



Compiler Program No.O (CPO) 



Source Operator: 
Stack Operator: 



Beta opens a 
statement. 



Beta , Begin 
(both stacked) 
Alpha , Beta , Pi , Phi , 
Then- s , Else-s , Do or 
Semicolon 

block, Begin a compound 



For Beta , a call is made to CLEARREG 
(which produces object code to save 
registers), and code is then generated to 
activate the Fixed Storage Area routine 
PROLOGP (see Library), which acguires a 
Data Storage Area for the new block at 
object time. Before exit to SNOT, a call 
is made to PBNHDL, which loads register P 
with the length (size) reserved for the 
block's object time Data Storage Area f 
contained in Program Block Table III. 



CASE A: Epsilon closes a block. Code is 
generated to call the Fixed Storage 
Area routine EPILOGB, which releas- 
es the Data Storage Area of the 
block exited and activates the Data 
Storage Area of the enclosing 
block. The PBNHDL subroutine is 
also called. 

CASE B: End closes a compound statement. 
Begin is released. 

CASE C: See "Procedures" below. 

All cases: If the source operator was 
preceded by an operand (in which 
case the operand logically rep- 
resents a parameter less procedure 
statement), a call is made to the 
subroutine PLPRST, which generates 
code to call the procedure. 



SWITCHES 



For Begin , the operator is 
control returned to SNOT. 







stacked and 



|<Size in bytes of j <Scope 
j Data Storage Area>| Code> 



"T 1 

|<No. of j 
| parameters > | 



<Scope Code>: 

X'OO' 
X'OU' 
X'08' 
X'10' 

<No. of parameters > 



Block 

Non-type procedure 
Type procedure 
Code procedure 
<Number of formal 
parameters of a 
procedure (zero for 
a block) > 



Figure 60. 



Entry in Program 
III (PBTAB3) 



Block Table 



The object cede generated in the case of 
a switch consists of several separate (but 
interrelated) segments. The first segment 
comprises the code generated for the switch 
declaration. The subseguent segments com- 
prise the code generated for each switch 
designator. 

Figure 61 illustrates the code generated 
for a declared switch having three simple 
label components, and for a single gctc 
statement containing a switch designator. 
The figure also indicates the compiler 
programs which generate the various seg- 
ments of the object code, and the Fixed 
Storage Area routines invoked in the object 
code. The latter are described more fully 
in Chapter 10. 



The code for a switch 
sists essentially of 



declaration ccn- 



Compiler Program No. 16 (CP16) 



CASE A 



CASE B CASE C 



Source Operator: Epsilon End Epsilon 
Stack Operator: Beta Begin Pi, Phi 
(all released) 



An opening instruction 
around the declaration. 



to branch 



2. A series of code seguences, one for 
each component in the switch list, and 
each ending with a branch to the Fixed 
Storage Area routine CSWE2, and 

3. A list of address constants, each 
pointing to one of the preceding com- 
ponent code seguences. 
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(Declaration) 'SWITCH', 



Fixed Storage Area 
Routines 



S:=L1, L2, L3; 



(Switch 
designator in 
goto statement) 



'GOTO' S[2]; 



CSWE2 reactivates the intervening lower 
level Data Storage Area(s), if any} reloads 
CDSA with the address of the Data Storage 
Area of the block containing the switch 
designator; and returns to the return address 
inSTH. 

<Switch address > 



CSWE1 deactivates the intervening higher 
level Data Storage Area(s), if any; loads 
CDSA with the address of the DSA where 
the switch is declared; and branches to the 
relevant component code sequence. 

RETPROL erases the Data Storaae Area(s) . 
if any, of the block(s) exited; foods CDSA 
with the address of the Data Storage Area 
of the block containing the switch compo- 
nent address; and branches to the compo- 
nent address. 

(To component 

address) 



¥ 



Generated Code 



L BRR, <LN> (LAT) 
-BR BRR 

L ADR, <LN> (LAT) 
L GDSA, <PBN> (PBT) 
B CSWE2 (FSA) 

-L ADR, <LN> (LAT) 
L GDSA, <PBN> (PBT) 

- B CSWE2 (FSA) 

L ADR, <LN>(LAT) 
L GDSA, <PBN> (PBT) 
B CSWE2 (FSA) 

- (Constant: number of components) 
(Address Constant: <L]>) 

-(Address Constant: < L2>) 
(Address Constant: <L3>) 



J 



© 



L GDSA, (PBT) 
L BRR, 8 (GDSA) 
L ADR, <LN>(LAT) 
L GDSA, <PBN>(PBT) 
-BAL STH, CSWE1 (FSA) 

-B RETPROL (FSA) 



Compiler Program 



• CP4 (Switch ) generates code to branch around the declara- 
tion, i.e. the code for the components in the switch 
list. 

CP85 ( Assign ) stores the displacement (PRPOINT) of the next 
instruction, in a stack operand, to represent the ad- 
dress of the first component code sequence. 

(CP56 stacks the left parenthesis and switches to expression 
context, if a switch component is represented by an 
expression enclosed by parentheses.] 
CP59 ( Comma o r Delta) generates al I or part of a code se- 
quence for each component in the switch list, depen- 
ding on whether the component is a simple label or a 
complex designational expression. If the component is 
a label, the code sequence generated by CP59 loads 
ADR with the label address, and branches to the Fixed 
Storage Area routine CSWE2. If the component is a 
complex designational expression (e.g. involving an 
if clause or a switch designator), the code to evaluate 
the expression and to load ADR with the component 
address will have been generated by some other com- 
piler program, before entry to CP59, and the code gen- 
erated by CP59 will consist solely of the final branch to 
CSWE2. CP59 also stores the displacement (PRPOINT) 
of the next object code instruction in a stack operand, 
to represent the address of the next switch component 
code sequence. At the end of the switch list, CP59 
generates a constant specifying the number of compo- 
nents in the list, and an address constant for each com- 
ponent, specifying the address of the corresponding 
code sequence. The displacement (PRPOINT) of this 
list of constants is stored in the switch identifier's La- 
bel Address Table entry. Lastly, the displacement of 
the next instruction in the object code is stored in the 
Label Address Table entry referenced in the branch in- 
struction at the head of the declaration. 
|fcP6 stacks the operator Goto - see " Goto Statements" .] 
CP41 ([) switches to statement context and stacks the [ . 

*- CP38 (]) generates code which loads BRR with the component 
number, loads GDSA with the address of the DSA where 
the switch is declared, loads ADR with the address of 
the switch, and branches to the Fixed Storage Area 
routine CSWE1. If the switch identifier is a formal pa- 
rameter in a procedure body, the code will include a 
call for the actual parameter (see "Procedures"). 

- [CP62 generates code to branch to the Fixed Storage Area 
routine RETPROL - see "Goto Statements" J 



Figure 61. Diagram showing code generated for switch declaration and switch designator 



The opening branch instruction ensures that 
none of the component code sequences is 
executed until a call for a switch compo- 
nent is actually executed. The length of 
the code sequence depends on the complexity 
of the component in the switch list. 



simple label address) in a register and 
returns (via the Fixed Storage Area routine 
CSWE2) to the next instruction following 
the call to CSWE1. 



The code for a switch designator con- 
sists essentially of instructions to load 
the component number specified in the 
switch designator, and the switch address 
(the address of the address -constants in 
the switch declaration) , and to branch to 
the Fixed Storage Area routine CSWE1 . If 
the switch identifier in a designational 
expression is a formal parameter , the code 
may be more involved (see "Procedures"). 

The object time starting point in the 
execution of the code for a switch is the 
code corresponding to a switch designator 
(in Figure 61, the starting point is marked 
by a circled S) . 

When the code is executed, registers are 
loaded with the switch address and the 
component number, and a branch is then 
taken (via the Fixed Storage Area routine 
CSWE1) to the relevant component code 
sequence in the declaration. The component 
code sequence loads the component address 
(in the illustration, the address is a 



Compiler Program No .4 (CP4) 



CASE A 



CASE B CASE C 



Source Operator: Switch , Array , Pi ,, Phi 

(all stacked) 

Stack Operator: Beta , Pi , Phi or Alpha 

CASE A: The source operator Switch marks 
the beginning of a switch declara- 
tion. Code is generated to branch 
around the object code to be subse- 
quently generated for the compo- 
nents in the switch list. See 
Figure 61. 

CASE B: See "Arrays". 

CASE C: See "Prodedures". 
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Compiler Program No. 85 (CP85) 



Compiler Program No, 41 (CPUl) 



Source Operator: Assign 
Stack Operator: Switch 



The combination of source and stack 
operators indicates the start of a switch 
list in a switch declaration. The operator 
Switch := is stacked, replacing Switch , and 
control is returned to SNOT. 



CASE A 



CASE B 



Source Operator: 
Stack Operator; 

Stack Operand: 



C 



(See decision matrices — 
Appendixes V-a,, V-b, V-c) 

<Switch <Array 
Identifier > Identifier > 



Compiler Program No. 56 (CP56) 



CASE A 



CASE B 



Source Operator: ( 

Stack Operator: Switch := or Goto 



CASE A: The operator ( in this context 
indicates the beginning of a switch 
component enclosed by parentheses. 
The operator is stacked and a shift 
made to the Expression Context 
Matrix , before control is returned 
to SNOT. 



CASE B: See "Goto Statements' 



CASE A: The operators and the stack operand 
identify a switch designator, e.g., 
S[2] . After stacking an operator 
to specify a return to the current 
matrix, the Statement Context 
Matrix is addressed and the source 
operator is stacked. Control is 
then returned to SNOT. 

CASE B: See "Arrays". 



Compiler Program No. 38 (CP38) 



Source Operator: 
Stack Operator: 
Stack Operand: 



CASE A CASE B 

3 Comma or ] 

[ E 

<Switch <Array 
Identifier> Identifier> 



Compiler Program No. 59 (CP59) 



Source Operator: Comma or Lelta 

Stack Operator: Switch := (released if 

source operator = Delta ) 



Either source operator marks the end of 
a component in a switch declaration. CP59 
generates the code sequence indicated in 
Figure 61 for the component. If the source 
operator is Delta , indicating the last 
component in the switch list, a constant, 
representing the number of components in 
the list, and a series of address con- 
stants, each pointing to one of the preced- 
ing component code sequences, are generat- 
ed. 



CASE A: The source operator 3 follows a 
component number or expression in a 
switch designator. Code is gener- 
ated to branch (via the Fixed Stor- 
age Area routine CSWE1) to the 
component code sequence correspond- 
ing to the specified component num- 
ber, as indicated in Figure 61. 
The stack operators and all oper- 
ands are released, a shift is made 
to the decision matrix specified by 
the next stack operator, and con- 
trol is returned to SNOT. 

CASE B: See "Arrays". 



LABELS 



Compiler Program No. 1 (CP1) 



Source Operator: 
Stack Operator: 



Label Colon 

Alpha ,, Beta , Pi,, Phi , 
Begin , Semicolon ,, Then-s , 
Else-s or Do 



The source operator follows a declared 
label, represented by the operand at the 
top of the Operand Stack. 
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The displacement (PRPOINT) of the next 
instruction in the ocject module is stored 
in the Label Address Table entry addressed 
by the label operand, and the operand is 
released. If the stack operator is Beta , 
Pi , or Phi , a Semicolon is stacked in order 
to ensure that an error is subsequently 
recorded if a declaration follows. 



Expression Context Matrix, and con- 
trol is returned to SNOT. 



Compiler Program No. 62 (CP62) 



GOTO STATEMENTS 



Compiler Program No. 6 (CP6) 



CASE A 



CASE B 



or For 



Source Operator: Goto 
Stack Operator : Begin , Do , Semicolon , 
Then-s , or Else-s 

CASE A: The source operator identifies a 
goto statement. The operator is 
stacked, a switch is made to the 
Statement Context Matrix, and con- 
trol is returned to SNOT. 

CASE B: See "For Statements". 



Compiler Program No. 56 (CP56) 



CASE A CASE B 

Source Operator: ( 
Stack Operator: Switch: = or Goto 

CASE A: See "Switches". 

CASE B: The source operator indicates the 

beginning of a designational 

expression. The operator is 

stacked, a switch is made to the 



Source Operator: 
Stack Operator: 



Epsilon , Eta , 
End , or Else 

GOtO 



Semicolon , 



Any one of the source operators marks the 
end of a goto statement. 

Code is generated to branch to the 
address designated by the stack operand, 
either directly or via the Fixed Storage 
Area routine RETPROL. The stack operand 
may represent a simple label declared in 
the current block or in some higher level 
block, or an address contained in register 
ADR representing the computed address of a 
designational expression other than a sim- 
ple label. 

In the last case register GDSA is loaded 
with the address of the Data Storage Area 
in which the label was declared. 

If the operand represents a simple label 
declared in the current block cr procedure, 
code is generated to branch directly to the 
label address, loaded in register ERR. If 
the operand represents a siirple label 
declared in some higher level block or 
procedure, the generated code loads the 
label address in ADR, loads GDSA with the 
address of the Data Storage Area corres- 
ponding to the block in which the label is 
declared, and branches via RETPROL to the 
label address. If the operand represents 
an address in ADR, the code branches to 
that address via RETPROL. The latter rou- 
tine releases the Data Storage Area of 
every block or procedure exited when the 
branch is taken. 
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ARRAYS 

The address of any particular element, A[s lf s 2 ,s 3l ... l s tf ], of the array declared 
A[L X :U ± ,L 2 :U 2 ,L 3 :U 3 , . . . ,L rf :U rf ] , may be expressed by the formula: 

(a) address of A [s ± , s 2 , s 3 , . . . , s^] 

= address of A [L ± ,L 2 ,L 3 , . • .L rf ] 

+ (S ± -L ± ){(U 2 -L 2 +1) (U 3 -L 3 +l),.. (U (r L tf +l)P d+1 } 

+ (s 2 -L 2 ) C(U 3 -L 3 +1) (U^-L^+D.-.CU^L^+DPrt^.^ 

+ (s 3 -L 3 ) {(U^-L^+l) (U 5 -L 5 +l)..-(U €C -L tf +l)P (t41 } 



where 



+ (s rf -L tf ){P tf+1 } # 

* = the number of subscripts in the array, 

L^s^Ui, L 2 <s 2 <U 2r L 3 <s 3 <U 3 , ... f L rf <s tf <U tf , 

A[L ± ,L 2f L 3f • . . , L rf ] is the address of the first element, and 
Prf +1 is the length in bytes (1, 4,, or 8 ) of each element. 

The expressions within braces {...} in formula (a) are called address increment 
factors, and represent the incremental displacement associated with an increment of 1 in 
the particular subscript value. The address increment factor, Pj +1 # for any given 
subscript position i in the array A[s ± ,s 2 ,s 3 , . . . ,s a ] is defined by 

a 

Pj = p a+1 n (u.-L.+i), 

j=i 

where P a + 1 = length of array element = address increment factor of the last subscript 
position, a . 

Replacing the address increment factor expressions in the address formula (a) above, 
by the notation Pj , the following abbreviated form is obtained: 

(b) address of A [s^, s 2 , s 3 , . . . , s a 1 

= address of A [L X ,L 2 ,L 3 , . . . ,L a ] 

+ (s 1 -L ± )P 2 +(s 2 -L 2 )P 3 + (s 3 -L 3 )P +. .. + (s a -L a )V a + ,. 
Expanding and rearranging: 

(c) address of A(s if s 2 ,s 3 , . . . ,s a 3 

= address of [L lf L 2 ,L 3 , . . . , L a ] 
- (L 1 P 2 +L 2 P 3 +1 3 P <> +. . . + L a P a + 1 ) 

+ (s ± P 2 +s 2 P 3 +s 3 P 4 + +s a P a + 1 ). 

This may be reduced to 

(d) address of A(s ± , s 2 , s 3 , . . . ,s a 3 

a 

= (address of A [L ± ,L 2 ,L 3 , . . . ,L a ] -. X) L i p i + i* 

i=l 

+ (s 1 P 2 +s 2 P 3 +s 3 P l ,+ . . .+s a P a+1 ) . 
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The quantity enclosed by braces {...} 
represents a constant value , which holds 
independently of the address of the parti- 
cular array element. It is called the 
zero- base address of the array and rep- 
resents the address of the array element 
(an imaginary or actual element) with zero 
subscripts. The zero-base address of an 
array is computed at object time, and 
stored in the array's Storage Mapping Func- 
tion, by subtracting the calculated value 
of the quantity 



X L i P M 



1=1 



from the absolute address of the first 
element in the array. 



The address of any arbitrary array ele- 
ment A[s if s 2 ,s 3 , . . . ,s a ] is determined at 
object time by adding the calculated value 
of the expression 



(s J .P 2 +s 2 P3+s 3 P 1 ,+ . . .+s a P 0+1 ) 



to the zero- base address. 



Arxay_DeciaratioriS 



The primary function of the object code 
generate! for every array declared in the 
source nodule is: 



To acquire main storage, sufficient to 
accommodate all elements of the array; 



To construct an object time Storage 
Mapping Function (Figure 62) contain- 
ing the array address, the zero-base 
address, and the address increment 

factors. 



See the Fixed Storage Area routine VAhU- 
CALL (Chapter 10) concerning the treatment 
of value-called array parameters of proce- 
dures. 



Byte 

l 



12 



16 



20 



24 



20 + 

4(a-l) 



20 + 
4a 



< Number of subscripts, a > 



<AII zeros, or the displacement in this Data Storage Area 
of the Storage Mapping Function of the preceding array 
declared in the current block > 



< Array's zero-base address, 
i.e. address of A [L., L~, L«, 



L a ]- gL,P i+1 > 



< Address of first array element, 
i.e. address of A [L, , L«, L«, 



LJ> 



<Address of last array element + 1, 

i.e. address of A [U,, U ? , U 3 , ..., U a + l]> 



< Size of array, 

i -«- P l= P n-,1 K (U. -L+l)> 



1 'a+1 



1=1 ' ' 



< Address increment factor for first subscript position, 
a 

! -«- p o = p «+i K (U. -L. + 1)> 
2 a+1 j=2 I I 



<Address increment factor for second subscript position, 
I... P,-P„ +1 Tt (U. -L. + l)> 

i= 



3 r a+l ," 3 -, , 



< Address increment factor for last subscript position but one, 
'• e - P a =P a + l (U a- L a + '» 



<Address increment factor for last subscript position, 
i.e. P ft . i = (length of array element, 1, 4 or 8 bytes) > 



p « + r 



Number of subscripts in the array A. 

Lower bound of the jth subscript. 

Upper bound of the jth subscript. 

Length of array element (= address increment 
factor for last subscript). 



Figure 62. Object Time Storage Mapping 
Function of an array 

The Storage Mapping Function for a par- 
ticular array is constructed in the object 
time Data Storage Area of the particular 
block in which the array is declared. The 
area acquired for the array, on the other 
hand, is located outside the Data Storage 
Area, in any part of main storage provided 
by the control program. An array's storage 
area is released, simultaneously with the 
release of the particular block' s or 
procedure's Data Storage Area, at exit from 
the block or procedure in which the array 
is declared. 
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Array declarations are handled by CP4, 
CP52, CP36, CP51, and CP54. The object 
code which issues the GETMAIN instruction 
for the array storage area and which con- 
structs the array's Storage Mapping Func- 
tion, is generated by CP51. The steps 
followed in this object time process are as 
follows: 

1. The range (Uj-Lj+1) of each dimension 
of the declared array is computed and 
stored in a corresponding four- byte 
field of the Storage Mapping Function, 
beginning at byte 16 for the first 
dimension, 

2. tfhen all of the array dimensions have 
been processed as in item (1), the 
array element length P<+i (l, f 4, or 8 
bytes, depending on whether the array 
is a boolean, integer or real array) 
is stored in the last entry of the 
Storage Mapping Function, to represent 
the address increment factor P, for 
the last dimension. 

3. The address increment factors for 
the regaining subscripts, and the 
array size, are now computed and 
stored in the Storage Mapping Func- 
tion, The computation consists in 
multiplying the dimension range in 
each entry (beginning with last entry 
but one and moving upward) by the 
address increment factor in the entry 
below, and storing the result in 
the entry, displacing the previously 
recorded dimension range. For a 
three-dimension array, 

hlL± :Uj_ , L 2 : U 2 , L 3 : U 3 ] , with array ele- 
ment length d, the contents of the 
Storage Mapping Function from byte 16 
onwards, after this computation, would 
be as follows. 



array size is acquired,, by call to the 
Fixed Storage Area routine GETMSTO, 
and the addresses of the first element 
and the last element + 1 of the array 
are stored in bytes 8-11 and 12-15 of 
the Storage Mapping Function. The 
displacement of the Storage Mapping 
Function in the current Data Storage 
Area is recorded in bytes 12-15 of the 
Data Storage Area (Figure 88), the 
previous contents of bytes 13-15 being 
moved to bytes 1-3 of the Storage 
Mapping Function. 



The zero-base address of the array 



(= address of A[L ± ,L 2 ,L 3 , . .. ,L a 3 



'£v 



i +1 



), 



is derived by subtracting the computed 
value of the quantity 



i=l 



L i P Ui 



(see item 3) from the address of the 
first element of the array (item 4). 
The zero-base address is stored in 
bytes 4-7 of the Storage Mapping Func- 
tion. 

The number of subscripts in the array 
is stored in byte of the Storage 
Mapping Function. 



Byte 




Contents 


16-19 


krray Size, 


P 1 =P 2 (Q 1 -L 1 +1) 


20-23 




P 2 =P 3 (U 2 -L 2 +1) 


24-27 




P 3 =P*(0 3 -L 3 +1) 


23-31 




P* = d 



At the same time, the product LjPj.^ 
is computed for each dimension and the 
result added to a cumulative total, so 
as to calculate the quantity 



i=l 



L i p i + 1 



This quantity is used in deriving the 

array's zero-base address (see item 

5). 

cutive entries 

Storage Area. 



The L j values are saved in conse- 
of the current Data 



4. Main storage equal to the computed 



Subscripted _\/aria ble s 



Subscripted variables in source module 
statements are processed by CP41 and CP38. 
The object code generated by these programs 
depends primarily on whether the subscript- 
ed variable occurs in an embracing for 
statement, and if so, whether the sub- 
scripted variable contains subscripts 
optimized (precalculated) at entry to the 
iterated part of the for statement. To be 
optimizable, a subscript expression must be 
of the type 

(±F*V±A), 

where F denotes a factor which must be an 
integer variable or constant, V denotes the 
for statement's controlled variable, and A 
denotes an addend which must be an integer 
variable or constant. F and/or A may be 
zero constants. 
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tfhere a for statement contains a sub- 
scripted variable with one or more optimi- 
zable subscripts, code is generated (see 
"For Statements") , at entry to the iterated 
part of the for statement, to compute (in 
the next available register named NXTR) the 
3am of the array's zero-base address and 
the initial value of the product SjPj +1 
for every optimizable subscript in the 
array,, viz. 



(e) address of hi 0,0,0, 



^Ol+Zs.'P. 



where 



denotes the initial value of the 



optimizable subscript and p 



i + 1 



denotes the 



address increment factor for the subscript 
position. In addition, code is generated 
to compute the cyclical address increment 
for all optimized subscripts, to be added 
to NXTR in each cycle of the for statement 
(except the first), viz. 



(f) £±F*Pi +1 *(Step Value), 



The result of this treatment at object 
time is to derive the particular array 
element address, by adding the contrib- 
utions of each subscript to the array's 
zero-base address. If the subscripted 
variable contains subscripts optimized in 
an embracing for statement, the sum of the 
zero -base address and the initial contrib- 
utions of the optimized subscripts is com- 
puted at entry to the iterated part of the 
for statement; the contributions of the 
non- optimized subscripts, together with a 
cyclical address increment for the optim- 
ized subscripts, are added in each cycle of 
the for statement. If the subscripted 
variable contains no optimized subscripts, 
on the other hand, the particular array 
element address must be wholly derived in 
each cycle by computing the contributions 
of all subscripts and adding these to the 
zero-base address. 



//here F denotes the factor in the sub- 
script,, Pj+i denotes the address increment 
factor, and (Step Value) denotes the incre- 
ment to the controlled variable in each 
cycle of the for statement. At object 
time, the contents of NXTR in any given 
cycle of the for statement will thus be 

(g) address of MO, 0, 0, . . . , 0]+]C Sj' Pj + 1 

+ (N-l) {£±F*Pj + 1 *(Step Value)} 

where N denotes the number of executed 
cycles of the for statement. 

CP41 is entered when the opening brack- 
et, [, in a subscripted variable is encoun- 
tered. If the subscripted variable occurs 
in an embracing for statement and if the 
subscripted variable contains one or more 
optimized (precalculated) subscripts, CP41 
generates code to load the precalculated 
adflress (expression (g) above) in a reg- 
ister reserved to hold the address of the 
subscripted variable. 

If, however, the subscripted variable 
contains no optimized subscripts, CP41 gen- 
erates code which simply loads the reserved 
register with the array's zero-base 
address. 



Compiler Program No.U ( CPfO 



CASE A 



CASE B CASE C 



Source Operator: Switc h Array Pi or Phi 
Stack Operator: Beta ,, Pi, Phi, or Alpha 



CASE A: See "Switches",. 



CASE B: The source operator identifies a 
following array declaration. The 
operator is stacked, the Statement 
Context Matrix is addressed, and 
control is returned to SNOT. 



CASE C: See "Procedures". 



Compiler Program No. 52 (CP52) 



CP38 is entered when the Comma separat- 
ing two subscripts, or the closing bracket, 
3, at the end of an array operand, is 
encountered. If the array subscript was 
optimized (i.e.,, precalculated) in an 
embracing for statement, CP38 generates no 
object code for the subscript. If, howev- 
er, the subscript was not optimized, CP38 
operates code to compute the product SjPj +1 
for the subscript and to add this product 
to the address previously loaded (by CP41) 
in the reserved register. 



Source Operator: 
Stack Operator: 



Comm a or [ 
Arra y 



The source operators represent delimi- 
ters in an array declaration, e.g., 
•ARRAY 1 A, B [1:10];. If the source opera- 
tor is a Comma, a count of the array 
identifiers associated with the following 
bound pair list, is incremented. If the 
source operator is the opening bracket [„ 
the operator * is stacked. 
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romgilsr^Prg^ram^No^BS^lCMe), 



(Jpper Bound, U)-(Lower Bound, Lj)+l if 



Source Operator: Colon 
Stack Operator: i 

The source operator represents the colon 
separating a bound pair in an array dec- 
laration, the lower bound being represented 
by the last entry in the Operand Stack. 
Code is generated to store the lower bound 
in the next entry in the Data Storage Area, 
and the Colon is stacked. If the related 
stack operand shows that the lower bound is 
not an integer, a call is first made to the 
TRREI.M subroutine, which generates code to 
branch to the Fixed Storage Area routine 
CNVRDI for conversion of the lower bound to 
integer (fixed point) form. 



and of storing the resultant in the rele- 
vant entry of the array's Storage Mapping 
Function (Figure 62). The contents of the 
operator and operand stacks after this 
adjustment are as follows: 



Operand St ack 

5 
-> r , 

| <Lower Bound, Uj > | 
j. j 

| <Opper Bound, L:> | 
y i 

1 <SMF-entry> j 
j. ., 

| <Array Identifier> | 

L J 



Opera tor_Stack 








1 


i 


Array 


i 


r 

i 


t 


1 

i 


L_ 




I 


r 

1 


For: = 


1 

i 


->H 





H 


1 
L- 




I 
_J 



Compiler Program Ji?o. 51 _(CP 51) 



The contents of the source text pointer 
SOURCE (register 8) are saved, and the 
pointer is reset to address a special field 
containing the following dummy Modification 
Level 2 text: 



Source Operator: Comma or ] 
Stack Operator: Colon 

The combination of source and stack 
operators indicates that the last stack 
operand represents the upper bound of a 
bound pair in an array declaration. The 
operator and operand stacks and the source 
text pointer are now adjusted, preparatory 
to entering CP69 (via entry point DHZB1), 
so as to specify the operation 



r t 1 1 

| + | <Operand representing | Do | 
| | the constant 1> | | 
l x i J 



The sequence of compiler programs and 
routines subsequently entered, and the 
actions taken,, as a result of these adjust- 
ments, is as follows: 
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22§ra tors_at_Entr^j_ 
Source Stack 



Comp iler Progran/Routine 



Operators at Exit; 
Source Stack 



CP69 (DHZB1) generates code to perform the 
operation Uj-Lj, releases the stack 
operator -, and exits to COMP 

For: = COMP branches to CP66, determined by the 
operator pair + and Forj_= 

CP66 stacks the source operator + and exits 
to SNOT 



For: = 



3N0T scans the dummy source text to the 
operator Do, stacks the operand rep- 
resenting the constant 1, and exits to 

COMP 



DO 



DO 



Do 



DO 



+ COMP branches to CP69, determined by the Do 
operator pair Do and + 

CP69 generates code to perform the operation 
(Uj-Lj )+l, releases the stack operator 
+ , and exits to COMP 

For: = COMP branches to CP70, determined by the Do 
operator pair Do and For^= 

CP70 switches to the Statement Context 
Matrix, and exits to COMP 

COMP branches to CP43, determined by the 
operator pair Do and Forj_= 

CP43 replaces the stack operator F or;= by 
M§JL2Q an ^ exits to CP20 (DB1C2) 

Assign CP20 (DB1C2) generates code to store the Do 
dimension range, Uj-Lj+1, in the Stor- 
age Mapping Function entry addressed by 
the relevant stack operand (see above), 
releases the stack operator Assign, and 
returns to CP51 (DERE2) 



For : = 



Assign 



At re-entry to CP51, the source text 
pointer SOURCE is reloaded with the pre- 
viously saved address of the source opera- 
tor Comma or ] in the current input buffer. 
If the source operator is Comma, indicating 
that a farther bound pair follows, an entry 
is reserved in the Data Storage Area for 
the object tine value of the lower bound to 
be processed next, and control is returned 
to SNOr. The lower and upper bounds will 
subsequently be processed by CP36 and CP51 , 
in the manner described above. 

If the source operator is the closing 
bracket ], indicating the end of the bound 
pair list, CP51 now generates code to 
compute the address increment factors for 
each subscript position in the array, and 
to store the factors in the appropriate 
entries of the array's Storage Mapping 
Function (Figure 62). Thereafter, the 
stack operator [ is released and code is 
generated to acquire a storage area for the 



array, and to fill in the data in the first 
16 bytes of the Storage Mapping Function, 
in the manner outlined at the beginning of 
this section . A test is then made to 
determine if the same bound pair list 
defines a second array (as, for example,, in 
'ARRAY 1 a,b[l:10,l:10];). In this case,, 
code is generated to copy the first array - s 
Storage Mapping Function,, from byte 16 
onwards, into the second array's Storage 
Mapping Function area. Code is then gener- 
ated to acquire a storage area for the 
second array and to complete the remainder 
of the Storage Mapping Function. This 
procedure is repeated for every array 
defined by the bound pair list. 

Lastly, the character following the 
closing bracket is inspected. Logically,, 
the closing bracket may be followed by a 
Comma (as, for example, in f ARRAY* 
a,b[l:10], c[l:100];) or by Delta, rep- 
resenting the semicolon at the end of the 
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declaration. Any other character following 
the closing bracket would represent a syn- 
tactical error. If the operator is a 
Comma, control is passed to SNOr. The 
programs subsequently entered from COMP 
will process the following array(s) and 
bound pair list(s). If any character other 
than a Comma is detected, control is passed 
to COMP,~which then branches tp CP54 (if 
the character is the operator Delta) f or to 
some other compiler program* which will 
record the syntatical error. 



Source Operator: 
Stack Operator: 



Delta 

Arra y [released] 



The source and stack operators indicate 
that the end of an array declaration has 
been reached. A call is made to the SCHDL 
subroutine (which updates the semicolon 
count and generates a call to the Fixed 
Storage Area routine TRACE, if the TEST 
option has been specified); the Program 
Context Matrix is addressed, and control is 
passed to SNOT. 



Compiler Program No.m (CPU1) 



for statement,, code is generated to 
load the reserved register with the 
precalculated address (expression 
(g) above) • The presence of an 
optimized subscript is determined, 
in the first instance,, by verifying 
whether SUTABC (Figure 71) contains 
any entries (representing one or 
more arrays in the embracing for 
statement, containing optimized 
subscripts), and in the second 
instance,, by comparing the position 
of the current subscripted 
variable's opening bracket in the 
input buffer, with the position 
noted in SUTABC of each of the 
arrays listed. Where this compari- 
son shows that SUTABC contains an 
entry for the subscripted variable, 
the same entry will contain the 
address of an operand pointing to 
the object time register (or the 
Data Storage Area field) which con- 
tains the precalculated address. A 
test is then made of byte 7 of the 
SUTABC entry to determine if the 
first subscript has been optimized. 
If so, the SMT switch in the HC0MP- 
M0D Control Field is turned on,, 
indicating to the arithmetic com- 
piler programs that no code should 
be generated for any operators in 
the subscript,, and to CP38 that the 
following subscript has been optim- 
ized. 



:ase h 



CASE B 



Compiler Program No. 38 (CP38) 



Source Operator: 
Stack Operator: 

Stack Operand: 



[ 
(3ee matrices — 

Appendixes V-a to V-c) 
<3 witch <Array 

identifier> identifier> 



:A3E A: See "Switches". 

:ASE B: A subscripted variable in a state- 
ment has been encountered. After 
stacking an operator to specify a 
return to the current matrix, the 
Statement Context Matrix is 
addressed and the source operator 
stacked. 



CASE A 



CASE B 



Source Operator: 
Stack Operator: 
Stack Operand: 



Comma or ] 
[ 
<S witch <Array 
Identifier> Identifier> 



CASE A: See "Switches". 

CASE B: Either source operator is preceded 
by a subscript expression. The 
closing bracket,, 3, marks the end 
of a subscripted variable. 



A register is reserved to hold the 
address of the array element. If 
the subscripted variable contains 
no subscripts optimized in an 
embracing for statement (if any), 
or if the array is a formal param- 
eter, code is then generated to 
load the register with the array's 
zero-base address. If, however, 
the subscripted variable contains 
one or more subscripts optimized 
(precalculated) in the embracing 



Comma : If the HC0MPM0D switch CMT 
shows that the subscript was not 
optimized (CMT=0) in an embracing 
for statement (if any),, code is 
generated to compute (in register 
BRR) the product of the subscript 
value and the address increment 
factor for the subscript position, 
viz., Sj Pj +1 , and to add this pro- 
duct to the address. No code is 
generated if the subscript was 
optimized (CMT=1). In either case. 
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byte 7 of the relevant SUTABC entry 
(Figure 71) is inspected to deter- 
mine if the next subscript was 
optimized, and CMT is set accord- 
ingly. 

] : The sane code is generated for 
the preceding subscript as des- 
cribed above, depending on whether 
the subscript was optimized or not. 
In addition, code is generated, if 
the array identifier is a formal 
parameter, to verify that the 
dimensions of the actual and formal 
parameters are equal. If the TEST 
option has been specified, code is 
generated to verify that the 
address of the array element falls 
witnin the reserved storage area 
for the array. Finally* the 
operator [ and the operands rep- 
resenting the array identifier and 
the last subscript are released, a 
switch is made to the decision 
matrix: specified by the next stack 
operator (also released), and con- 
trol is passed to SNOTSP. 



PROCEDURES 



The object code generated for a proce- 
dure comprises two or more separate parts, 
namely: 

1. A segment of code representing the 
declared procedure; and 

2. One or more procedure calls, one for 
each call to the procedure. The pro- 
cedure call comprises a code sequence 
for each actual parameter (if any) 
designated in the call and a branch to 
the Fixed Storage Area routine PROLOG. 
When the procedure call is executed, 
PrDLOS acquires a Data Storage Area 
for the procedure and then stores the 
addresses of the actual parameter code 
sequences in the storage fields res- 
erved for the formal parameters in the 
Data Storage krea. PROLOG then passes 
control to the first instruction in 
the procedure. 

Figure 63 shows a part of the object 
code generated for a declared type proce- 
dure and for a call to the procedure. The 



illustration also shows the compiler pro- 
grams which generate the different parts of 
the object code. 



PROCEDURE DECLARATION 



To ensure that a procedure is executed 
only when specifically called, code is 
first generated to cause a branch over the 
procedure body. 

The body of a declared procedure begins 
with a series of two- byte constants 
(characteristics) indicating the character 
of the formal parameters (if any) specified 
in the procedure heading, (Whenever the 
procedure is called at object time, the 
characteristics of the actual parameters 
are compared with the characteristics of 
the formal parameters,, to ensure that the 
actual parameters satisfy the specifi- 
cations in the procedure heading.) The 
character istic(s) of the formal 
parameter(s) are followed directly by cod- 
ing representing the main operative func- 
tions of the procedure, unless the proce- 
dure contains one or more value- specified 
parameters. In the latter case, the main 
body of the procedure is preceded by coding 
which fetches the value(s) or address(es) 
of the corresponding value-specified actual 
parameter (s) and stores the value(s) or 
address (es) in the storage areas reserved 
for the value-specified formal parameter(s) 
in the procedure's Data Storage Area. This 
operation is accomplished by calling the 
appropriate actual parameter code 
sequence (s) in the procedure call (via the 
Fixed Storage Area routines CAP1 and CAP2) 
and then calling the Fixed Storage Area 
routine VALUCALL. The actual parameter 
code sequence (whose address will have 
previously been stored by PROLOG in the 
formal parameter's Data Storage Area field) 
calculates the value or address of the 
actual parameter, and loads ADR with the 
address of the Data Storage Area field 
containing the value (or, in the case of a 
specified array with the address of a 
Storage Mapping Function; or, in the case 
of a specified label, with the label 
address). VALUCALL transfers the value (or 
address) to the formal parameter's Data 
Storage Area field, displacing the pre- 
viously stored actual parameter code 
sequence address. 
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' REAL' X, Y, Z; 



-REAL' 'PROCEDURE' P(F1, F2); 
'VALUE' F2j 
'REAL' F1, F2j 
' BEGIN' 



F ixed Storoge Areo 
Routines 



CAP1 deactivates the intervening lower level 
Data Storage Area(s), if any; loads CDSA 
with the address of the Data Storage Area of 
the block containing the procedure call; and 
branches to the actual parameter code sequence. 
The address of the code sequence (stored in the 
formal parameter's Data Storage Area field by 
PROLOG - see below) is loaded in ADR by 
executing the instruction which follows the call 
toCAPl. I 



VALUCALL stores the value of the actual para- - 
meter in the formal parameter's Data Storage 
Area field, and returns control to the next in- 
struction in the procedure heading. 

CAP1 deactivates the intervening lower level 
Data Storage Area(s), if any; loads CDSA 
with the address of the Data Storoge Area of 
the block containing the procedure call; and 
branches to the actual parameter code sequence. 
The address of the code sequence (stored in the 
formal paramter's Data Storage Area field by 
PROLOG - see below) is loaded in ADR by 
executing the instruction which follows the call 
to CAP! . 



EPILOG? activates the Data Storage Area of the 
logically or dynamically enclosing block or pro- 
cedure; moves the computed value of a type pro- 
cedure to the Fixed Storage Area location ^ 
FCTVALST (addressed by ADR); releases the Data 
Storage Area of the called procedure; and passes 
control to the next instruction following the pro- 
cedure call. . 



CAP2 reactivates the intervening higher level — 
Data Storage Area(s), if any; loads CDSA with — 
the address of the Data Storage Area of the block 
containing the actual parameter call; and returns- 
control to the return addreis in BRR. 



PROLOG acquires main storage for the Data -a 

Storage Area of the called procedure; stores the 
addresses of the actual parameter code sequences 
in the Data Storage Area fields of the formal pa- 
rameters; and branches to the first instruction in 
the procedure. 



Generated Code 



L BRR, <LN> (LAT) 



Compiler Progro 



-BR BRR 
DC H' 

.DC H 

-BAL E 
DC H 
DC H 
L ADR, 

-BAL B 
DC H 
DC H 



Characteristic of Fl>' 
< Characteristic of F2>' 

RR, CAP1 (FSA) 

<Displ. of entry for P in PBT>' 

< Dummy parameter>' 

[,<DISP - F2>(CDSA) 

1R VALKCAL (FSA) 
<Displ. of F2's field in DSA>' 
Characteristic of F2>' 



- BAL BRR, CAP1 (FSA) 

DC H'< Characteristic of Fl>' 

DC H'<Dummy>' 

L ADR, <DISP -F1>(CDSA) 

- L <GPR>, (ADR) 

A <GPR>, <DISP - F2> (CDSA) 
ST < GPR:> <DISP - P> (CDSA) 



- B EPILOGP (FSA) 



L ADR,<LN>(LAT) 
- BR ADR 



-LA ADR, < DISP - 
- B CAP2 (FSA) 



. LA ADR, <DISP - Y>(CDSA) 

- B CAP2 (FSA) 

• MVT PROLPBN, <P.B.No. of P> 
L ADR, <LN - P> (LAT) 

- BAL BAR, PROLOG (FSA) 

DC A(<Address of Xs code sequence >) 

DC H ^Characteristic of X? 

DC H '< Number of parameters, 2 >' 

DC A(< Address of Y's code sequence >) 

DC H '< Characteristic of Y>' 

DC H '< Dummy parameter >' 

- MVC <DISP - 2>(4, CDSA), 0(ADR) - 



CP4 (Phi or Pi) generates code to branch around the code 

representing the declared procedure, which begins with 
one or more constants representing the characteristic(s) 
of the formal parameter(s). If a parameter is value spec- 
ified (as is Fl in this example), CP4 generates code, 
first, to branch to the code sequence for the actual pa- 
rameter (via the Fixed Storage Area routine CAP1 ), 
and second, to call the Fixed Storage Area routine 
VALUCALL, which stores the value of the actual pa- 
rameter in the formal parameter's object time Data 
Storage Area field. 

[CP69 (+) calls OPDREC on recognition of the operand F 1 .] 

— OPDREC (called by most compiler programs whenever an op- 
erand is encountered) generates code, in the case of a 
formal parameter called by name, to branch to the code 
sequence for the actual parameter (via the Fixed Stor- 
age Area routine CAP!). 

[CP69 generates code, on return from OPDREC, which loads 
Fl 's actual value (addressed by ADR) in a general pur- 
pose register, adds F2's actual value (contained in F2's 
Data Storage Area field) to it, and stores the result in 
procedure P's Data Storage Area field.] 

CP16 (End) generates code to branch to the Fixed Storage 

Area routine EPILOGP, which releases the procedure's 
Data Storage Area. CP16 also stores the displacement 
(PRPOINT) of the next object code instruction in the 
Label Address Table entry referenced in the branch in- 
struction at the head of the procedure declaration. 

CP64 (Left Parenthesis) generates code to branch over the 

following code sequences for the actual parameters in 
the procedure call. 

CP57 (Comma or Right Parenthesis) generates all or part of a 
code sequence for each actual parameter in the proce- 
dure call. In the simplest case, where (as in the illus- 
tration) the actual parameters are simple variables 
or constants, the code sequence loads ADR with 
the address of the parameter, and branches (via 
the Fixed Storage Area routine CAP2 to the next in- 
struction in the procedure body, following the call for 
the actual parameter. At the end of the list of actual 
parameters, CP57 generates code to load ADR with the 
address of the procedure and to branch to the Fixed 
Storage Area routine PROLOG. The call to PROLOG 
is preceded by an MVI instruction which specifies the 
procedure's Program Block Number (used by PROLOG 
in accessing the appropriate entry of the object time 
Program Block Table, containing the size of the re- 
quired Data Storage Area). The call is followed by a 
series of constants, specifying, among other things, 
the addresses of the preceding actual parameter code 
sequences. At exit from CP57, the Operand Stack con- 
tains an entry representing the function value of P(X,Y), 
the address of the value being in ADR. 

[CP20 (Semicolon) generates code to move the computed value 
ot the type procedure P from the Fixed Storage Area 
location FCTVALST (addressed bv ADR) to the Data 
Storage Area field of the variable Z.] 



> 



Figure 63. Code generated for declared type procedure and procedure call 



Within the procedure body, every formal 
parameter called by name is represented by 
a call to the corresponding actual paramet- 
er code sequence (via CAP1 and CAP2) . The 
address of the relevant code sequence is 
obtained from the formal parameter's Data 
Storage Area field, where it is stored by 
PRDLDG when the particular call for the 
procedure is executed. In the case of a 
formal parameter called by value in the 
procedure body, the actual value or address 
of the parameter is simply fetched from the 
formal parameter's Data Storage Area field, 
where the value or address will have been 
stored at entry to the procedure. 

The close of the procedure body is 
represented by a branch to the Fixed Stor- 
age Area routine EPILOGP. EPILOGP releases 
the Data Storage Area of the procedure and 
passes control to the next instruction 
following the procedure call. If the pro- 
cedure called is a type procedure,, EPILOGP 
moves t hie calculated value of the procedure 



from the appropriate Data Storage Area 
entry to a standard location in the Fixed 
Storage Area, before releasing the type 
procedure's Data Storage Area. 



PROCEDURE CALL 



The procedure call consists essentially 
of a call to the procedure by way of the 
Fixed Storage Area routine PROLOG. Among 
other things, PROLOG acquires a Data Stor- 
age Area for the procedure and then branch- 
es to the code representing the procedure. 
The Program Block Number and the address of 
the procedure are transmitted to PROLOG by 
instructions immediately preceding the 
call . The Program Block Number specifies 
the appropriate entry in the object time 
Program Block Table (Figure 84) which con- 
tains the size of the Data Storage Area to 
be acquired by PROLOG for the procedure. 
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If the procedure call includes any 
actual parameters , the call to PROLOG is 
preceded by a code sequence for each actual 
parameter. The code sequence, which is 
only executed when called by the procedure, 
computes the value or the address of the 
actual parameter (where the actual paramet- 
er is not a simple variable or a constant), 
loads ADR with the address of the actual 
parameter, and returns control (via the 
Fixed Storage Area routine CAP2) to the 
next instruction in the procedure. A 
branch instruction preceding the actual 
parameter code sequence (s) ensures that the 
code sequences are not executed until 
called by the procedure. The address (es) 
of the actual parameter code sequence(s) 
and the characteristic(s) of the actual 
parameter (s) are stored in a series of 
constants following the call to PROLOG. 
The first parameter entry contains the 
number of actual parameters. PROLOG veri- 
fies tne compatibility of the formal and 
actual parameters (by comparing 
characteristics) and stores each parameter 
code sequence address and characteristic in 
the related formal parameter's storage 
field in the Data Storage Area acquired for 
the procedure. This enables the appropri- 
ate actual parameter code sequence to be 
accessed and executed whenever the actual 
parameter is called by the procedure. 



In the latter case, control 
passed directly to COMP. 



is 



If the declared procedure is not 
parameterless, a series of con- 
stants is generated representing 
the characteristics of the paramet- 
ers in the formal parameter list. 
At the same time, an entry is made 
for each parameter in a table named 
CBVTAB (Called by Value Table), 
which accommodates up to 15 three- 
byte entries. The contents of the 
CBVTAB entries,, for each type of 
formal parameter are as follows: 



by 



Non-label 
value: 

1 


parameter called 
3 


1 x'so 1 | 

L X- 


<Characteristic> | 

j 



Label parameter called by value: 

1 3 

r t 1 

| X'CO' | <Characteristic> | 

l x J 



Parameter called by name: 



Compiler ^Proqra^No^^iCP^ 



<A11 zeros> 



CASE A CASE B 



CASE C 



Source Operator: Switch Array Pi or Phi 

[stacked] 

Stack Operator: Beta, Pi , Phi, or Alpha 

CASE A: See "Switches". 

CASE B: See "Arrays". 

CASE C: The source operator indicates the 
start of a procedure declaration. 
Code is first generated to branch 
around the code subsequently gener- 
ated for the declared procedure. 
The branch instruction references a 
new entry reserved in the Label 
Address Table, in which the dis- 
placement (PRPOINT) of the instruc- 
tion following the end of the pro- 
cedure is subsequently inserted by 
CP16. . A scanning operation is then 
initiated (by call to GNOPDOPR) to 
locate the operator following the 
procedure identifier. The operator 
may be the left parenthesis preced- 
ing a formal parameter list, or the 
operator Delta marking the end of a 
parameterless procedure heading. 



The characteristics in the entries,, 
which are constructed in the order 
in which the parameters occur, are 
copied from the internal names 
representing the parameters in the 
Modification Level 2 source text. 

When all parameters in the formal 
parameter list have been processed 
in the manner indicated, code is 
generated for every value-called 
parameter listed in CBVTAB, to 
fetch the actual parameter value or 
label address and to store the 
value or address in the formal 
parameter's Data Storage Area 
field. The basic elements of the 
code generated for a non- label 
value-called parameter are indicat- 
ed in Figure 63. In the case of a 
value-called label parameter, the 
code consists of a call to the 
corresponding actual parameter code 
sequence (via the Fixed Storage 
Area routines CAP1 and CAP2) fol- 
lowed by instructions which store 
the actual address (contained in 
ADR) and the base address 
(contained in GDSA) of the Data 
Storage Area of the block where the 
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Label is declared, in the 8-byte 
storage field reserved for the 
value- called parameter in the 
procedure's Data Storage Area, 
tfhen the end of the declared proce- 
dure heading is reached (indicated 
by the operator Delta) , control is 
passed to COMP. 



2£§£i03_B§£220L2er_j[DPDREC)_ 



See "Subroutine Pool", 



Compiler _, Program Mo. 16 (CP16)_ 



:A3E A 



CASE B CASE C 



Source Operator: Epsilon End Epsilon 
Stack Operator: Beta Begin Pi or Phi 

[released] 



?A3E A and B: See 

Statements". 



'Blocks and Compound 



CASE C: Epsilon marks the close of a 
declared procedure. 

Code is generated to call the Fixed 
Storage Area routine EPILOGP. The 
displacement (PRPOINT) of the next 
instruction in the object code is 
stored in the Label Address Table 
entry referenced by the branch 
instruction preceding the procedure 
body r specifying a branch over the 
procedure (CPU). The procedure 
type and the number of parameters 
in the procedure (obtained from the 
stack operand representing the pro- 
cedure identifier) are noted in the 
corresponding entry of Program 
Block Table III (Figure 60) and a 
call is made to PBNHDL. 



ig[npilsr_ Program, No. 6 4 (CP64) 



Source Operator: ( 

Stack Operator: (See decision matrices — 
Appendices V-a, V-b, 7-c) 



CASE A: The left parenthesis is preceded by 
an operand representing a procedure 
identifier and constituting a call 
for the procedure. An operator is 
stacked specifying a return to the 
current decision matrix, the State- 
ment Context Matrix is addressed 
and code is generated to branch 
past the code sequence(s) to be 
subsequently generated (by CP57) 
for the following actual 
parameter (s) . To specify the 
address of the first parameter, the 
displacement (PRPOINT) of the next 
instruction in the object code is 
saved in an entry in the Operand 
Stack. Before control is returned 
to SNOT, the procedure bracket { is 
stacked. 

CASE B: The left parenthesis is preceded by 
a standard procedure designator. 
See "Standard Procedures". 

CASE C: The left parenthesis is preceded by 
an operator. See "Arithmetic 
Expressions" and "Boolean 
Expressions". 



Compiler Program No. 57 (CP57) 



Source Operator: 
Stack Operator: 



Comm a or ) 
{ 



Either source operator is preceded by an 
actual parameter in a procedure call. 

CP57 generates all or part of a code 
sequence for each parameter in the actual 
parameter list, depending on the type of 
the parameter. If the actual parameter (an 
expression) contains any arithmetic or 
relational operators, the first part of the 
code sequence (to evaluate the expression) 
will have been generated before entry to 
CP57. At the end of the list of actual 
parameters, Cp57 generates a call to the 
procedure, by way of the Fixed Storage Area 
routine PROLOG (see Figure 63). 

The instructions generated by CP57 in 
each actual parameter code sequence (each 
of which terminates with a branch to the 
Fixed Storage Area routine CAP 2) depend on 
the nature of the actual parameter, rep- 
resented by the last stack operand. 
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h 



Type_ of _ Actual , Parameter 


T 

+ 


Code Generated (followed in every 
case by a branch to CAP2) 



Formal parameter 

Integer, real or boolean expression 

String identifier 

Integer, real or boolean array identifier 

Designational expression 



Switch identifier 



Procedure identifier with no parameters 



Procedure identifier with parameters 



Standard procedure identifier 



Call the actual parameter (call generated 
by OPDREC) • 

Load ADR with the address of the value of 
the expression. 

Load ADR with the address of the string. 

Load ADR with the address of the Storage 
Mapping Function. 

Load ADR with the address of the label and 
GDSA with the address of the Data Storage 
Area corresponding to the block in which 
the label is declared. 

Load ADR with the address of the switch 
and 3DSA with the address of the Data 
Storage A.rea corresponding to the block in 
which the switch is declared. 

Call the procedure (call generated by 
OPDREC). 

Load ADR with the address of the proce- 
dure. Move the Program Block Number of 
the procedure to PROLPBN in the Fixed 
Storage Area. Save registers PBT and LAT 
in PROLREG. 

Load ADR with the address of a constant in 
the actual parameter code sequence, rep- 
resenting the last 4 bytes of the standard 
procedure designator. Move block number 
to PROLPBN in the Fixed Storage Area. 



kfter each code sequence has been gener- 
ated, the displacement (PRPOINT) of the 
next instruction in the object code is 
stored in an entry reserved in the Label 
Address Table (addressed by a stack 
operanl) to represent the address of the 
following code sequence- The addresses 
thus recorded are stored in the form of 
address constants in the parameter list 
following the call to PROLOG (see Figure 
63). After the last code sequence has been 
generated, the displacement of the follow- 
ing instruction is stored in the Label 
Address Table entry referenced by the 
branch instruction (generated by CP6U) 
preceding the first code sequence. 



CODE PROCEDURES 



The term "code procedure" is applied to 
a declared procedure with a normal proce- 
dure heading, but with a procedure body 
consisting solely of the word 'CODE*. The 



latter signifies that a precompiled routine 
with the same name as the procedure iden- 
tifier in the heading, is to be fetched 
from the user's library of precompiled 
procedures. 



The generated code corresponding to the 
heading of a declared code procedure is 
identical in form to that generated for the 
heading of any non-code procedure (see 
Figure 63 and CP4) . When the delimiter 
•CODE' representing the procedure body is 
encountered, CP83 generates a call to the 
Fixed Storage Area routine LOADPP, which 
loads the precompiled procedure into main 
storage and records the address of the 
procedure's entry point in the object time 
Program Block Table (see Figure 8*U . The 
call to LOADPP is executed at entry to the 
block in which the procedure is declared. 
This ensures that the precompiled procedure 
has been loaded into main storage in 
advance of any call for it in the object 
module. 
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When the operator Epsilon, marking the 
close of the declared code procedure, is 
encountered, CP16 does not generate a call 
to EPIL03 as in the case of non-code 
procedures, but simply marks the appropri- 
ate entry of Program Block Table III 
(Figure 60) to show a code procedure and to 
note the number of parameters. The precom- 
piled procedure is DELETEd (by EPILOG) at 
exit from the block in which the code 
procedure is declared. 



The object code implementing a call for 
a code procedure is identical in form with 
the code for a non-code procedure call. It 
consists of a call to the Fixed Storage 
Area routine PRDL03. PROL03 acquires a 
Data Storage Area for the code procedure, 
stores the addresses of the actual paramet- 
er code sequences in the Data Storage Area 
fields of the formal parameters, loads ADR 
with tha address of the precompiled proce- 
dure (contained in the relevant Program 
Block Table entry) and branches to the 
address in ADR. The latter action is taken 
after determining (by inspection of the 
Program Block Table entry) that the proce- 
dure is a code procedure. The object time 
registers PBT and LAX are also changed by 
PR0LD3 to point to the tables contained in 
the precompiled procedure load module. 



STANDARD PROCEDURES 



Comp i ler Program No. 64 (CP6*Q 



Compiler Program No. 83 (CP83) 

Source Operator: Gamma 

Stack Operator: Pi, Phi# l§ta 



3amm§ represents the body of a declared 
code procedure. It is followed by an 
8-byte unit containing six characters of 
the code procedure name and two blanks 
(EBCDIC code). 



CP83 generates a call to the Fixed 
Storage krea routine LO&DPP. The call is 
followed by two parameters: the name of the 
precompiled procedure and the displacement 
of the Program Block Table entry for the 
code procedure. 



Source Operator: 
Stack Operator: 



(See Decision Matrices — 
Appendices V-a, V-b, V-c) 



CASE A: The source operator is preceded by 
a procedure identifier. See 

"Procedures". 



CASE B: The source operator is preceded by 
a standard I/O procedure or mathe- 
matical function designator 
(Appendix III), representing a call 
for the procedure or function. 



To indicate that the standard pro- 
cedure has been called in the 
source module, the full word res- 
erved for the address of the stand- 
ard procedure in the Label Address 
Table (displacement specified in 
the last byte of a designator) is 
flagged, by setting the first 
bit = 0. Flagging the entry causes 
an ESD and an RLD record to be 
generated in the Termination Phase 
(IEX51) for the called standard 
procedure or function, ensuring 
that the Library procedure will be 
combined with the object module at 
execution time. After the proce- 
dure has been loaded, its entry 
point address is stored in the 
Label Address Table entry. 



CP6U initiates a count, in a stack 
operand, of the number of paramet- 
ers in the standard procedure call. 
In the same operand the displace- 
ment (P) is stored of the next free 
entry in the current Data Storage 
Area in which a parameter list will 
be constructed at object time. The 
operand is referenced by CP61, 
which generates the code to con- 
struct the parameter list and to 
call the standard I/O procedure or 
mathematical function. Before exit 
to SNOT, the standard procedure 
bracket ^ is stacked. 



The displacement (PRPOINT) of the call 
in the object module is stored in the Label 
Address Table entry referenced by the 
branch instruction generated by CP4 (see 
"Procedures") at the head of the code 
procedure declaration. 



CASE C: The source operator is preceded by 
another operator. See "Arithmetic 
Expressions" and "Boolean 
Expressions". 
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"prcpilgr Program No. 61 (CP61) 



standard I/O procedure, or (2) a standard 
mathematical function. 



Source Operator: 2 pmma or ) 
Stack Operator: ^ 

Either source operator is preceded by an 
actual parameter in a call for a standard 
I/O procedure or mathematical function. 

Except in the case of the standard 
functions AB3, ENTIER, LENGTH, and SIGN, 
CP61 generates code which constructs a 
parameter list (containing an entry for 
each actual parameter in the procedure 
call) in the current Data Storage Area, 
followed by code to load a register with 
the address of the parameter list and then 
to branch to the Library procedure con- 
cerned, viz. 

L PARAM, OISP> (CDSA) 
L ENTR£, <LN> (LAD 
BALR RETURN, SNTRy 



The 
address 
entry in 
displace 
last byt 
function 
Library 
object 
of the E 
tion Pha 
(see CP6 



second instr 

of the Libr 

the Label 

ment (<LN» 

e of the s 

designator 

procedure i 

module at exe 

3D record gen 

se (IEX51) fo 

4 above) . 



uction fetches the 

ary procedure from the 

Address Table whose 

is specified in the 

tandard procedure or 

(Appendix III). The 

s combined with the 

cution time, by virtue 

erated in the Termina- 

r the procedure name 



The parameter list entry constructed at 
object time for each actual parameter in a 
standard procedure or function call con- 
sists of a full word containing a code byte 
and the address of the actual parameter (in 
the last three bytes). The processing of 
the actual parameters by 2P61 depends, in 
general, on whether the call is for (1) a 



A call for a standard I/O procedure 
includes two or three actual paramet- 
ers. The character of these paramet- 
ers and the parameter list entries 
constructed at object time are indi^ 
cated in Chapter 11 under 
"Input/Output Procedures . 

The I/O operation involved in the 
standard procedure is noted in the I/O 
Table (IOTAB — Figure 64) opposite 
the data set number (if any) specified 
by the first parameter in the proce- 
dure call. The I/O Table is used in 
the construction of the Data Set Table 
(see "Termination Phase" in this 
chapter) . 

A call for a standard mathematical 
function includes but one parameter. 
Execution of the standard function 
gives an arithmetic result. 

For all standard function calls except 
those of 'ENTIER' , 'ABS', 'LENGTH* and 
'SIGN', CP61 generates code to con- 
struct a parameter entry in the cur- 
rent Data Storage Area for the actual 
parameter, and to call the relevant 
Library routine. In the case of 
•ENTIERV, the Fixed Storage Area 
ENTIER routine is called. In the case 
of 'ABSV, 'LENGTH' !# and ' SIGN', code 
is generated to perform the function 
in line. 

Before exit to SNOTSP, the stack oper- 
and representing the standard function 
designator is replaced by an operand 
representing the function value and 
pointing to the register which con- 
tains the value. 



Chapter 8: Compilation Phase 137 



Form Y33-8000-0, Page Revised by TNL Y33-8001, 12/15/67 



"3 f" r~5 

Sysact ( Sysact iSysact 
" 3 i Undet , Other 



TT 



i 1 
•input 



Output) Sysact 
I 4/13 



DSN.= Oi 

\ 

y 

41 

\ 

r 

81 

91 

10| 

H| 
12, 

14 1 

15l 

Undetermined | 
Put/Get I 



I 



Figure 64. I/O Table (IOTAB) 



FOR STATEMENTS 



The logical structure of the code gener- 
ated for a for statement is governed by the 
for statement's loop classification 
(Counting Loop, Elementary Loop or Normal 
Loop) in the For Statement Table. The £or 
Statement Table, which is constructed Tn 
the Scan III Phase (Chapter 6) and trans- 
mitted to the Compilation Phase via the 
Common Work Area, contains a classification 
byte for every for statement in the source 
module. The classification byte (Figure 
65) not only reflects specific logical 
characteristics of the for statement, but 
also specifies (by the pattern of bit- 
settings in binary positions 0-3) the for 
statement's loop classification. 

£2U2£iD2-.£222§ 



The principal 
Counting Loop are: 



characteristics of the 



1. 



The controlled variable does not occur 
in the iterated part of the for 
statement (other than in optimizable 
subscript expressions) } 

The for list is limited to step ele- 
ments and/or arithmetic elements, and 
all operands in the for list are 
constant whithin the for statement; 



3. 



All operands in the for list are 
integer type. 



of 



4. All subscript expressions contained in 
the for statement which are functions 
of the controlled variable are opti- 
mized; so also are subscripts consist- 
ing of constants or simple variables 
to which no assignment is made in the 
for statement. All' other subscripts 
are not optimized. 

In the case of a step element/ the first 
two characteristics imply that the loop 
count (or number of iterations) can be 
calculated in advance. The formula used in 
computing the loop count is 



Loop Count= 

(Test Value-Initial Value+Step Value) 



Step Value 



Since the loop count can be computed in 
advance, the iterated statement may be 
designed as a Branch on Count loop. 



Furthermore, since the controlled varia- 
ble is not a factor in the iterated state- 
ment, no assignment need be made to it in 
each iteration. If the controlled variable 
occurs in a subscript expression (which 
must be optimizable) , its contribution is 
pre-calculated in the form of a uniform 
address increment. 



Figures 66 and 63 illustrate the logical 
structure of the code generated for two 
Counting Loops, the first containing arith- 
metic elements, the second containing step 
elements. 



4" 
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BIT 0=1 if: 

the for list contains a while 
element 

the real division operator (/) 
appears in the for list 
the power operator appears in 
the for list 

a real operand appears in the 
for list 

the controlled variable appears 
as a right variable in the 
iterated part of the for state- 
ment (outside optimizable sub- 
script expressions) 

~BiT~l="if7 

an assignment is made to the 
controlled variable in the 
iterated part of th for state- 
ment 



The main features of the code 
ed for a Counting Loop are: 



Tenerat- 



BIT 2=1 if: 

a label or switch identifier , 
implying a jump out of the for 
statement, appears in the iter- 
ated part of the for statement 

""BIT - 3=l"if: 

an array identifier appears in 
the for list 

a procedure identifier or a 
formal parameter appears in the 
for statement 

an assignment is made to any 
for list identifier in the 
iterated part of the for state- 
ment 
(Any one of these conditions qualifies 
the for statement as a Normal Loop, In 
this case, all of bits 0,1,2 and 3 are 
set=l) 



BIT 



4=1 if: 

the for 
element 



list contains a while 



BIT 5=1 if: 

the for 
element 



list contains a while 



BIT 6=1 specifies that the for state- 
| ment contains subscript expres- 
sions to be optimized. (The 
bit is turned on only in the 
Compilation Phase) 

' BIT 7=1 specifies that the for list 

I contains two or more elements. 

| (The bit is turned on only in 

I the Compilation Phase) 

Loop Classification 
COUNTING LOOP: Bits 0-3 aTFO 
ELEMENTARY LOOP: Bits 0-3 mixed 1 and 
Bits 0-3 all 1 



NORMAL LOOP: 



Figure 65. For statement classification 
byte in the For Statement 
Table 



1. 



2. 



The code sequence representing each 
for list element is executed once 
only, and the sequence terminates 
with a BALR instruction, which 
branches to the iterated statement 
and loads the address of the next 
for list element. In the case of a 
step element, the code sequence 
tests for an endless loop and com- 
putes the loop count (in register 
0), before branching to the iterated 
statement. 

The code sequence representing the 
iterated statement, in the case of a 
step element, is controlled by a 



terminal Branch on Count 
tion, which returns to the 
statment, or, if the step 
is exhausted, branches to 
for list 
address) • 



instruc- 
iterated 
element 
the next 



[equence (or to the exit 



3. If the for statement contains sub- 
scripted variables (arrays) , the 
addresses of the array elements are 
derived in each iteration (except 
the first) by the addition of a 
uniform increment to an initial (or 
base address, calculated in advance 
of the first iteration (see 
"Subscript Optinization" below). 
Elementary Loops 

The distinguishing characterisitcs of 
the Elementary Loop are: 

1. An assignment may be made to the 
controlled variable in the iterated 
statement (the controlled variable 
may also occur in the iterated 
statement as a right variable) . 

2. The for list may contain real operands 
or expressions containing the real 
division or power operator. 

3. Subscript expressions in the for state- 
ment are optimizable, provided no 
assignment is made to any variable 
except the controlled variable, in the 
expression. 

If an assignment is made to the con- 
trolled variable in the iterated statement, 
its value after any given number of itera- 
tions cannot be predicted without reference 
to the iterated statement. This implies 
that, for a step element, the loop count 
cannot be pre-calculated, and that accord- 
ingly, the iterated statement cannot be 
designed as a Branch on Count Loop. A test 
for exhaustion of the step element, involv- 
ing the test value, the step value, and the 
controlled variable, must be made in each 
iteration. 



Chapter 8: Compilation Phase 139 



This requires that the controlled varia- 
ble be incremented uv the amount of the 
step value in each iteration. Incremen- 
tation of the controlled variable is also 
required on the ground that the con- 
trolled variable may occur in the iterat- 
ed statement as a right variable as well 
as a factor in noi-op^imizable subscript 
expressions. 



Figures 67, 69, 70, and 73 illustrate 
the logical structure of the code gener- 
ated for an Elementary Loop f the first 
containing arithmetic elements, the sec- 
ond step elements, the third containing 
step elements and an optimizable sub- 
script expression, and the fourth con- 
taining while elements. 



No subscript expression is optimiza- 
ble in the for statement. 



Since an assignment may be made Co any 
variable in the for list, the step and 
test values in a step element may vary 
between iterations. This implies, first, 
that the loop count cannot be pre- 
calculated without reference to the 
iterated statement; and second, that in 
eacti iteration, 



The step and test values must be 
calculated. 



The controlled variable must 
incremented, and 



be 



The main features of the code generat- 
ed for an Elementary Loop are: 



A test for exhaustion of the 
step element must be made. 



The code sequence initiating a step 
element tests for an endless loop 
and stores the step and test values 
in tie current Data Storage krea. 



2. The controlled variable is incre- 
mented once in each cycle of a step 
element, and a test for exhaustion 
of trie step element, using the 
stored step and test values and the 
controlled variable, is made before 
a branch is taken to the iterated 
statement. The test is performed by 
a Fixed Storage krea routine (BCR). 

3. If tie for statement contains any 
optimizable subscript expressions, 
the expressions are optimized by 
deriving a uniform address increment 
which is added in each cycle to a 
pre-calculated base address. 



ffgg.nia.l^Lipops 



The principal characteristics of the 
formal Loop are: 

1. kn assignment nay be made in the 
iterated statement to any variable 
in the for list. 

2. The step value may be a function of 
the controlled variable. 

3. The for statement may contain a 
procedure statement (which may 
change the values of any one or more 
of the for list variables). 



Moreover, 
a function 
the step valu 
in each ite 
trolled varia 
again, immedi 
to determine 
The latter is 
form the tes 
element befor 
statement, vi 



since the step value may be 
of the controlled variable, 
e must be calculated twice 
ration, once when the con- 
ble is incremented, and once 
ately afterwards, in order 

the sign of the step value. 

required in order to per- 
t for exhaustion of the step 
e branching to the iterated 



(Controlled Variable - Test Value) 
*(Sign of Step Value) >0 

Figures 67, 72, and 73 illustrate the 
logical structure of the code generated 
for a Normal Loop, the first containing 
arithmetic elements, the second contain- 
ing step elements, and the third contain- 
ing while elements. 

The main features of the code generat- 
ed for a Normal Loop are: 

1. The step and test values are comput- 
ed in each iteration, the step value 
being computed twice (once for 
incrementing the controlled varia- 
ble, and once for determining the 
sign of the step value) . 

2. The controlled variable is incre- 
mented and a test for exhaustion of 
the for list element is performed in 
each iteration. 

3. krray element addresses are computed 
by evaluating the full subscript 
expression (s) in each cycle 
(subscript optimization is not 
possible). 
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Source Text ; 'FOR' V := 1, C 'DO' 'BEGIN' 
Comment 



'END' 
Object Code 



Compiler Program 



1st Arithmetic Element 

Base = Constant Pool 

Controlled Variable (V) = Initial Value (1) 



Branch and link to iterated statement (< LN - l>) 

2nd Arithmetic Element 

Controlled Variable (V) = Value (C) 

Load exit address. 

Iterated Statement f<LN - l>) 
Store BRR in return address field. 



Load return address and branch (to next 
arithmetic element or to exit). 

Exit f<LN - X>) 



L GDSA, (PBT) 

MVC <DISP - V> (4, CDSA),<DISP - 1>(GDSA) 

L BRR, <LN - l>(LAT) 
. BALR BRR, BRR 
-MVC <DISP - V>(4, CDSA), <DISP - O(CDSA) 

L BRR, <LN -X>(LAT) 
- [ST BRR, <DISP - R>(CDSA) 



CP6 (For) stores the for statements' classification byte (from 
FSTAB) and F.S.No. in the Operand Stack. 

CP40 (As si gn) reserves entries in the Label Address Table for 
the iterated statement address (<LN - I >) and the exit 
address (<LN - X>) and in the current Data Storage 
Area for the return address field (<DISP - R>). 

"— CP43 ( Comma ) generates code, for the first arithmetic element, 
to assign the initial value to the controlled variable and 
to branch and link to the iterated statement, loading the 
address of the next arithmetic element. 

CP43 (Do) enters CP47 at DWITERS. 

— CP47 generates an instruction for the last for list element, 
(which loads BRR with the exit address) as well as the 
first instruction in the iterated statement (which stores 
the address in BRR in the return address field). 



L BRR, <DISP - R>(CDSA) 

:BR BRR] 

[.Next instruction following 
the end of the for statement^] 



— CP81 (£la - operator marking the close of the for statement) 
generates the terminal instructions in the iterated state- 
ment. In the case of an arithmetic element, these in- 
structions cause a branch to the next for list sequence, 
or to the exit address, depending on the address fetched 
from the return address field. 



Figure 66. Logical structure of the code generated for a Counting Loop 
containing arithmetic elements 



Source Text: 'FOR' V := 1, A 'DO' 'BEGIN' 'END' 

Comment Object Code 



Compiler Program 



1st Arithmetic Element 
Base = Constant Pool 

Controlled Variable (V) = Value 1 . 
Load address of iterated statement . 



Compute address of next step ele- 
ment and store in return address field. 



2nd Arithmetic Element 

Controlled Variable (V) = Value of A. 

Move exit address to return address field. 
Iterated Statement (<LN - l>) . 



Load return address and branch (to 
next arithmetic element or to exit) 



Exit (<LN -X>) 



Figure 57. 



L GPS A, (PBT) 

MVC <DISP - V> (4, CDSA), <DISP - 1> (GDSA) 

L BRR, <LN - l>(LAT) 

BALR STH, 

LA STH, 10 (STH) 

ST STH, <DISP - R>(CDSA) 
r- BR BRR 
- MVC <DISP - V> (4, CDSA), <DISP - A > (CDSA) 

MVC <DISP - R> (4, CDSA), <LN - X>(LAT) 
•» [iterated statement 



CP6 (For) stores the for statement's classification byte (from 
FSTAB) and F.S.No. in the Operand Stack. 

CP40 ( Assign ) reserves entries in the Label Address Table for 
the iterated statement address (<LN - l=>) and the exit 
address (<LN - X>) and in the current Data Storage 
Area for the return address field (<DISP - R>). 

CP43 ( Comma ) generates code, for the first arithmetic ele- 
ment, to assign the initial value to the controlled vari- 
able, to load the iterated statement address, to compute 
the address of the next for list sequence and store it in 
the return address field, and to branch to the iterated 
statement. 



CP43 (Do) generates code, for the last arithmetic element, to 
assign the initial value to the controlled variable and to 
store the exit address in the return address field. 



L BRR, <DISP - R>(CDSA) 

ZZ BR BRR] 

[Next instruction following the end of the for 
statement.] 



V 



CP81 (Eta - operator marking the close of the for statement) 
generates the terminal instructions of the iterated state- 
ment, which branch to the next for list sequence or to 
the exit address, depending on the address contained in 
the return address field. 



Logical structure of the code generated for an Elementary Loop or Normal Loop 
containing arithmetic elements 
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Source Text: 'FOR' V := 1 'STEP' 1 'UNTIL' 5, 10 'STEP' 2 'UNTIL' 12 'DO' A[2»V-l]:=0 ; 
Comment Object Code 



Compiler Program 



1st Step Element 

Base = Constant fool 

Controlled Variable (V) = Initial Value (1). 



Step Value = 0? 



Loop Count = (Test Value 

- Initial Value 
+ Step Value) 
♦ Step Value. 



Branch to Test and Initialize Entry. 

2nd Step Element 
Base = Constant Pool . 

Controlled Variable (V) = Initial Value (1). 
Step Value =0? 
Store Step Value. 



Loop Count = (Test Value 

- Initial Value 
+ Step Value) 
* Step Value. 



Load exit address. 
Test and Initialize (<LN - Tl>) 
Store BRR in return address field. 
Loop Count = 0? 



Zero-base address, add A f_0j , from 
Storage Mapping Function. 



A * P. + j (addend * address increment 

factor ) 

AddA[0] -A»P. + | 

Factor F (+2) 

F*P:x, 



Add A [0] - A * P. + , + F » P. + , * V 
(= initial address of subscripted variable) 

F " p ; + i 

F*P. + . Step (= cyclical address increment) 
Store cyclical 



Branch around subscript incrementation 
(first cycle only). 

Iterated Statement (<LN - l>) 
Subscript incrementation 
(+F»P. + 1 .Step) 

11 <LN - I 

Base = Constant Pool 

A[2»V- 1] =0j 

Branch on count to iterated statement. 



Load return address and branch (to next 
step element or to exit). 



Exit (<LN - X> ) 



(r 



L GDSA, (PBT) 

MVC <DISP - V> (4, CDSA), <OISP - 1> (GDSA) 
L 3, <DISP - 1 >(GDSA) 
LTR STH, 3 
BZ ENDLESL(FSA) 
ST STH, <DISP-ST>(CDSA) 
A STH, <DISP - 5 >(GDSA) 
S STH, <DISP-V>(CDSA) 
SRDA STH, 32 
DR STH, 3 
LR 0, BRR 

L BRR, < LN - Tl >(LAT) 
BALR BRR, BRR 
p--»L GDSA, 0(PBT) 

MVC <DISP - V>(4, CDSA), <DISP - 10> (GDSA) 
L 3, <DISP - 2>(GDSA) 
LTR STH, 3 
BZ ENDLESL (FSA) 
ST STH, <DISP-ST> (CDSA) 
A STH, <DISP-12>(GDSA) 
S STH, <DISP-V> (CDSA) 
SRDA STH, 32 
DR STH, 3 
LR 0, BRR 

L BRR, <LN - X> (LAT) 
«—ST BRR, <D ISP- R> (CDSA) 
LTR 0, 



T 



CP6 (For) stores the for statement's classification byte (from 
FSTAB) and F.S.No. in the Operand Stack. 

CP40 (Assign) reserves entries in the Label Address Table for 
the iterated statement address (<LN - \>) and the exit 
address (<LN - X>) and in the current Data Storage 
Area for the return address field (<DISP - R»), the step 
value (<DISP - ST>), and the cyclical array address 
increment. CP40 also locates the OPTAB entry for the 
subscript expression to be optimized in the for statement. 

. CP43 (Sjgfi) generates code, for the first step element, to assign 
the initial value to the controlled variable. 
CP45 (Until) stocks the operator Until. 



CP47 ( Comma ) generates code, for the first step element, (a) to 
test for on endless loop, (b)' to compute the loop count, 
and (c) to branch and link to the Test and Initialize Entry 
(<LN - Tl>). 



^ 



BCR 12, E 



<NXTR>, <DISP - SMF - A »+ 4 (CDSA) 

L GDSA, (PBT) 

L BRR, <DISP - 1 > (GDSA) 

M STH, <DISP - SMF - A> + 20 (CDSA) 

SR «=NXTR>, BRR 

L BRR, <DISP-2>(GDSA) 

M STH, <DISP - SMF - A>+ 20 (CDSA) 

LR ADR, BRR 

M STH, <DISP-V»(CDSA) 

AR <NXTR>, BRR 

LR BRR, ADR 

M STH, *=DISP - ST> (CDSA) 

ST BRR, -cDISP - IN> (CDSA) 

L BRR, <LN -B>(LAT) 

BR BRR 

<NXTR>, <DISP - IN> (CDSA) 
ADR, <NXTR> 

L GDSA, 0(PBT) 

MVC (4, ADR),<DISP - 0* (GDSA) 

L BRR, <LN -l>(LAT) 
*-BCTR 0, BRR 

L BRR, <DISP-R>(CDSA) 

=BR BRR 

•"[Next instruction following the end of the for 
statement.] 



EBR I 
A. 
LR j 



CP47 ( Do ) generates code, for the second element, (a) to test 

for an endless loop, (b) to compute the loop count, and 
(c) to load the exit address. 

CP47 also generates the first instructions of the Test and 
Initialize sequence (which store the return address and 
test for exhaustion of the step element). CP47 then calls - 



CP43 ( Step) generates code, for the second step element, to 

assign the initial value to the controlled variable. 
CP45 (Until ) stacks the operator Until . 



Subscript Init. Routine makes an entry for the optimized 
array in SUTABC arid generates a subscript initialization 
sequence which computes the initial address of the sub- 
scripted variable, add A [0] + S;' ?', + ] and the cycli- 
cal address increment. 
F#P. + 1 » (Step Value). 



- On return, CP47 generates code to branch around the 
following subscript addres incrementation sequence, and 
calls - 

- Subscript Inc. Routine generates code to add the cyclical 
address increment to the precalculated subscripted variable 
address. 

♦1 (fj inspects SUTABC and sets a switch (CMT) to specify to 
CP69 (which normally processes the operators # and -) and 
CP38 ( ] ) that the subscript has been optimized (precalcu- 
lated). "See "Arrays" . 
CP1 2 (Assign) stacks the operator Assign . 

- CP20 (Ejfl - operator marking the end of the for statement) gener- 
ates code to assign the value (0) specified in the source mod- 
ule to the subscripted variable. 



- CP81 (Eta) generates code (1) to branch on count to the iterated 
Statement and (2) to branch to the next step element or to 
the exit address, depending on the address saved in the re- 
turn address field . 



Figure 68. Logical structure of the code generated for a Counting Loop 

containing step elements and optimizable subscript expression 
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h subscript expression of an array 
identifier contained in the iterated part 
of an embracing for statement is defined 
to be optimizable in that for statement 
if the expression is of the form 

±F*V±h, 

where F( Factor) is an integer variable or 
constant, V is the controlled variable of 
the embracing for statement, and 
A( Addend) is an integer variable or con- 
stant. Two conditions for optimization 
of a subscript expression of the above 
type are: 

1. That the embracing for statement be 
a Counting Loop or an Elementary 
Loop; and 

2. That no assignment be made in the 
iterated statement to any variable 
in the subscript expression. 

In the general case, the address of 
any given array element, ^[3 ll s 2 |5 3 ] is 
given by 

addkLsi, s 2 ,s 3 ]=addA.[0,0,0] + 3 ± P 2 +s 2 P 3 + s 3 P 4 

where addA. [0,0,0] is the array's zero- 
base address and SjPj 41 is the product of 
the subscript and the address increment 
factor for the subscript position. The 
zero-base address and the address in- 
crement factors are obtained from the 
array's Storage Mapping Function (Figure 
62 - see "Arrays"). The product SjPj + 1 
represents the contribution of the parti- 
cular subscript to the displacement of 
the array element from the zero-base 
address. 

The displacement contribution of any 
linear (optimizable) subscript of the 
form (F*V>A) is 



Sj 9 



1 + 1 



= {F*V+A}P: 



I +1 



The change in the displacement contrib- 
ution associated with a change (or 
"step") in the value of the controlled 
variable V is 

As i p i + 1 = 

= {F*(yr+Step)+k}Pj + 1 

-CF*V+&}Pj + 1 

=F*3tep*Pj + 1 . 

If the controlled variable V changes 
by a constant step value in a succession 
of iterations, the change in the 
subscript's displacement contribution, 
F*3tep*Pj+«t » is constant in each itera- 
tion. If Sj'Pj =(F*V'+A.)Pj^ is the 



subscript's displacement contribution in 
the first iteration (where V* is the 
initial value of the controlled 
variable) , the displacement contribution 
in the nth iteration is 

s i p j*i + <n-l)AS|P i+1 

= (F*V+A)P^ 1 + (n-l) (F*Step*P- |+1 ). 

An equivalent form is 

(a) (s'Pf +1 +(n-2)ASj Pj +1 }+ASj P j+1 

= { (F*7'+A)Pi + 1 +(n-2)(F*step*Pj + 1 )} 
+F*Step*P i+1 . 

Equation (a) expresses the subscript 
optimization formula, which states that, 
for an optimizable subscript: 

1. the change in the subscript's dis- 
placement contribution is constant 
in each iteration, if the change (or 
step) in the controlled variable is 
constant, and is given by 
As-, P- |+1 =F*Step*Pj + 1 (called the 
cyclical address increment) . 

2. the subscript's displacement con- 
tribution in each iteration is 
obtained by adding the cyclical 
address increment, F*Step*Pj +1 , to 
the subscript's displacement con- 
tribution in the preceding itera- 
tion, viz: 

<F*V'+A)Pj +1 +(n-2) (F*Step*P i + 1 ). 

The address of the array element 
A[s lf s 2 fS 3 ] in the nth iteration, where 
subscripts s^ and s 2 are optimizable and 
subscript s 3 is non-optimizable, may be 
expressed as 

addA.[s 1# s 2 # s 3 3 

in nth iteration 

= {addA[0 f 0,0]+s£p 2 +s 2 'p 3 +(n-2) 
*(As 1 P 2 +As 2 P 3 )}+As jL P 2 +As 2 P 3 +s 3 P^. 

This states that the address of a 
subscripted variable containing one or 
more optimized subscripts is obtained in 
each iteration of a step element, by 
adding the cyclical address increments of 
the optimized subscripts, viz, 

AsjP- |+1 =F*Step*Pj +1 r together with the 
displacement contributions of the non- 
optimizable subscripts, viz. SjP- | + 1 , to 
a pre- calculated address element, viz. 
the expression in braces (...}. The 
latter represents the sum of the array's 
zero-base address, addM0,0, 0] , plus the 
displacement contributions of the 

optimized subscripts in the first itera- 
tion, Sj* Pj^.., = (F*V f +A)Pj +1 f plus the cumu- 
lative total of the cyclical address 
increments, Asj Pj +1 =F*Step*Pj +1 , added in 



Chapter 8: Compilation Phase 143 



the preceding iterations for all optim- 
ized subscripts. 

In the generated object code, the 
optimization of subscript expressions 
comprises two phases: Subscript Initiali- 
zation and Subscript Incrementation. 

Subscript initialization (illustrated 
in Figures 6 5 and 70) is performed before 
entry to the iterated statement. It 
consists in computing (in any available 
general purpose register <NXTR>) the sum 
of the array's zero base address and the 
displacement contributions of the optim- 
ized subscripts for the first iteration, 
thus (continuing the example above) 

<NXrR>=addA[0,0,OJ+s'p 3 +s/p 3 ; 

and in deriving and storing (in a field 
in the current Data Storage Area, 
<DISP-IS» a cyclical address increment, 
representing the sum of the cyclical 
displacement increments of all optimized 
subscripts, to be added to <NXTR> in each 
subsequent iteration, thus 

<DISP-IN>=As 1 P 3 +As 2 P 3 . 

Subscript Incrementation consists in 
adding the cyclical address increment to 
<SXTR>, thus 

A <NfXTR>, <DISP-IN>(CDSA) . 

tfhere the subscripted variable contains a 
non-optimized subscript (as in the exam- 
ple above), the displacement contribution 
for the non-optimized subscript is added 
to <NXrR> after the code to evaluate the 
product of the full expression and the 
subscript increment factor, viz. SjPj + 1# 
is executed inside 
ment. 



the iterated state- 



So^Piie^^E^^S^lH-ND^S^XCPe), 



CASE A CASE B 
Source Operator: §oto For 
Stack Operator: Be^in, Semicolon, Do, 
Then-s or Else-s 

CASE A: See "Soto Statements". 



CASE A: For marks the beginning of a for 
statement. The operator is 
stacked and the Statement Context 
Matrix addressed. Three Operand 
Stack entries are reserved, in 
the last of which the for 
statement's classification byte 
(OPTB5TTE* Figure 65) and For 
Statement Number are stored. 



Compiler Program No. 40 (CP40) 



Source Operator: Ass ign 
Stack Operator: Fo r 

rne Assign operator follows the con- 
trolled variable, whose internal name has 
been entered in the Operand Stack. 

CP40 stacks the operator For : = and 
reserves two entries in the Label Address 
Table and one or more storage fields in 
the current Data Storage Area (depending 
on the for statement's loop classifica- 
tion, indicated by the classification 
byte stored by CP6 in the stack) , and 
stores the displacements of these entries 
in the stack operands reserved by CP6. 
The Label Address Table entries, in which 
the relative address of the iterated 
statement and the exit address are subse- 
quently inserted, will be referenced by 
instructions generated subsequently by 
other compiler programs (see Figures 
66-70 and 72, 73). The Data Storage Area 
fields reserved will be used at object 
time for storing the return address and 
the conditional entry address. 

CP40 also searches the Optimization 
Table to determine if the table contains 
any entries for optimizable subscript 
expressions contained in the for state- 
ment (an entry is identified by comparing 
the For Statement Number previously 
entered in the stack by CP6, with the For 
Statement Number in the first byte of the 
Optimization Table entry - Figure 50). 
If an entry is found, bit 6 (OPTB) of the 
classification byte in the stack is 
turned on, to indicate that code to 
optimize the subscript expression is to 
be generated. 
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Source Text : 'FOR'V := 1 'STEP' 1 'UNTIL' 5, 10 'STEP' 2 'UNTIL' 12 'DO' 'BEGIN' 'END'; 

Comment Object Code 



Compiler Program 



1st Step Element 
Base = Constant Pool . 

Controlled Variable (V) = Initial Value (1). 



Compute and store the sign of the step 

Store the step value (1). 
Store the test value (5). 
Load controlled variable. 



Compute the address of the step addition 
sequence and store in return address field. 



Branch around step addition (first cycle). 



Step Addition 

Add step value to controlled variable. 



Branch to iterated statement (<LN - l>) 
if step element not exhausted; otherwise 
begin next step element (test performed 
by Fixed Storage Area routine BCR). 



2nd Step Element 

Constant Pool 



2nd Step t 
Base = Coi 

Controlled Variable (V) = Initial Value (10). 



Compute and store the sign of the step 

Store the step value (2). 
Store the test value (12). 
Load controlled variable. 



Compute the address of the step addition 
sequence and store in return address field. 



Branch around step addition (first cycle) 



Step Addition 

Add step value to controlled variable. 



Branch to exit if step element exhausted; 
otherwise execute iterated statement (test 
performed by Fixed Storage Area routine 
BCR). 



Iterated Statement (<LN - l>) 



Exit (<LN - X>\ 



L GDSA, 0(PBT) 

MVC <DISP - V> (4, CDSA), DISP 

L STH, <DISP - 1>(GDSA) 

LTR STH, STH 

BZ ENDLESL (FSA) 

BALR BRR, 

SLL BRR, 1 

ST BRR, <DISP - S> (CDSA) 

ST STH, <DISP - ST> (CDSA) 

MVC<DISP - T> (4, CDSA), DISP 

L STH, <DISP-V>(CDSA) 

BALR BRR, 

LA BRR, 12 (BRR) 

ST BRR, <DISP-R>(CDSA) 

B 12 (BRR) 

L STH, <DISP - ST> (CDSA) 

A STH, <DISP - V> (CDSA) 

ST STH, <DISP -V>(CDSA) 
^C STH, <DISP - T> (CDSA) 

IC ADR, <DISP - S> (CDSA) 

L BRR, <LN - l> (LAT) 
pEX ADR, BCR (FSA) 
UL GDSA, O(PBT) 

MVC <DISP-V>(4, CDSA), <DISP 

L STH, <DISP-2>(GDSA) 

LTR STH, STH 

BZ ENDLESL (FSA) 

BALR BRR, 

SLL BRR, 1 

ST BRR, <DISP -S> (CDSA) 

ST STH, <DISP -ST>(CDSA) 

MVC <DISP - T> (4, CDSA), <DISP - 12 > (GDSA) 

L STH, <DISP-V>(CDSA) 

BALR BRR, 

LA BRR, 12 (BRR) 

ST BRR, < DISP -R> (CDSA) 

B 12 (BRR) 

I STH, <DISP -ST> (CDSA) 

A STH, <DISP -V>(CDSA) 

ST STH, < DISP -V> (CDSA) 
•-C STH, <DISP - T> (CDSA) 

XI <DISP-S> (CDSA), X 'E0' 

IC ADR, <DISP -S>(CDSA) 

L BRR, <LN-X>(LAT) 
3=EX ADR, BCR (FSA) 
"-♦[j tested statement 



h 



CP6 (For) stores the for statement's classification byte (from 
FSTAB) and F.S.No. in the Operand Stack. 

CP40 ( Assign) reserves entries in the Label Address Table for the 
iterated statement address (<LN -I >) and the exit address 
(<LN - X>) and in the current Data Storage Area for the 
return address field (OISP - R>). 

CP43 ( Step ) generates code, for the first step element, to assign 
the initial value to the controlled variable. 



■ CP45 ( Until ) generates code to test for an endless loop and to 
store the step value. 



■ CP47 ( Comma ) generates code to store the test value, to compute 
and store the step addition address, to branch around the 
step addition sequence (for the first cycle only), and to 
load the step value. 



y 



CP45 (entered from CP47) generates code to add the step value 
to the controlled variable. 



CP47 (reentered from CP45) generates code to compare the con- 
trolled variable with the test value and to load the sign of 
the step value. 

CP49 (entered from CP47) generates code to load the iterated 

statement address and to invoke the Fixed Storage Area 
routine BCR, which branches to the iterated statement if 
the step element has not been exhausted. 

■ CP43 ( Step ) generates code, for the second step element, to assigi 

(GDSA) | tne i n iti a | value to the controlled variable. 



y 



■ CP45 ( Unti I ) generates code to test for an endless loop and to store 
the step value. 



CP47 (Do) generates code to store the test value, to compute and 
store the step addition address, and to branch around the step 
addition sequence (for the first cycle only). 



CP45 (entered from CP47) generates code to add the step value to 
the controlled variable. 



CP47 (reentered from CP45) generates code to compare the controlled 
variable with the test value. 



y 



CP49 (entered from CP47) generates code to load the exit address and 
to invoke the Fixed Storage Area routine BCR, which branches 
to the exit address if the step element is exhausted. 



L BRR, <DISP - R>(CDSA) 

1BR BRR] 

■•[Next instruction following the end of the for 
statement.] 



> 



CP81 ( Eta - operator marking the close of the for statement) generates 
code to branch to the step addition sequence. 



Figure 69. Logical structure of the code generated for an Elementary Loop 
containing step elements 
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Source Text : 'FOR' V := 1 'STEP' 1 'UNTIL' 5, 10 'STEP'2 'UNTIL' 12 'DO' A[2*V- l] := 0; 
Comment Object Code 



Compiler Program 



1st Step Element 
Store Subscript Initial izat 
conditional entry field. 
Base = Constant Pool . 
Controlled variable (V) = 



Compute and store the sign of the step val 

Store the step value (1). 
Store the test value (5). 
Load controlled variable. 

Compute the address of the step addition 

sequence and store in the return address 

field. 

Branch around step addition (first cycle). 



Branch to conditional entry address (<LN - 
SI>or<LN - l>-) if step element not ex- 
hausted; otherwise begin next step element 
(test performed by Fixed Storage Area rou- 
tine BCR). 



Base = Constant Pool . 
Controlled variable (V) r 



Store the step value (2). 

Store the test value (12). 

Load controlled variable. 

Compute the address o : the step additi 
sequence and store in the return addre 
field. 



8ranch around step addition (first cycle). 
Steo Additi 



>n trolled variable. 



Branch to conditfonal entry address («=LN - 



Load exit addre 



S ubscript Initialization (<LN - Sl>) 

Ciange conditional entry to Iterated 

Statement . 

Zero-base -ddress, add A [0] , from 

Storage Mapping Function. 

Base Constant Pool. 

Addend A (- 1). 

A * Pj i ! (addend * address incremen 

factor). 

Add A[0] - A»P. t , 

factor F 1- 2) 



F.P. fl .V 

add A[0] - A» P. 4 ] f F* P. + 1 #V 

(- initial address of subscripted variable). 

• Si 



( cy 

Store 


f ^atep 
clical address increm 


ent. 


) 


Branch around subscript in 




entation 


(first 


cycle only). 






Iterated Statement (<LN 


I> 




Subsc 


ript Incrementation 


+ F 


P. Step) 
<LN - B»: 


Base 


= Constant Pool . 






A[2 


» V - 1] - 0; 






Load 


return address and b 


anc 


to step 



MVC <DISP - CE>(4, CDSA), <LN - SI >(LAT) 
L GDSA, (PBT) 

MVC <DISP -V>(4, CDSA), <DISP - 1>(GDSA) 

L STH, <DISP - 1>(GDSA) 

LTR STH, STH 

BZ ENDLESL (FSA) 

BALR BRR, .0 

SLL BRR, 1 

ST BRR, <DISP - S> (CDSA) 

ST STH, <DISP -ST> (CDSA) 

MVC <DISP - T>(4, CDSA), <DISP - 5>(GDSA) 

L STH, <DISP -V>(CDSA) 

BALR BRR, 

LA BRR, 12 (BRR) 

ST BRR, <DISP - R> (CDSA) 

B 12 (BRR) 

L STH, <DISP -ST>(CDSA) 

A STH, <DISP - V>(CDSA) 

ST STH, <DISP - V> (CDSA) 
•-C STH, <DISP -T>(CDSA) 

IC ADR, <DISP - S> (CDSA) 

L BRR, <DISP - CE>(CDSA) 
p=EX ADR, BCR (FSA) 
LmVC<DISP -CE>(4, CDSA), <LN - l>(LAT) 

L GDSA, (PBT) 

MVC <DISP -V>(4, CDSA), <DISP - 10> (GDSA) 

L STH, <DISP - 2>(GDSA) 

LTR STH, STH 

BZ ENDLESL (FSA) 

BALR BRR, 

SLL BRR, 1 

ST BRR, <DISP - S>(CDSA) 

ST STH, <DISP -ST> (CDSA) 

MVC <DISP - T>(4, CDSA), <DISP - 12>(GDSA) 

L STH,<DISP - V>(CDSA) 

BALR BRR, 

LA BRR, 12 (BRR) 

ST BRR, <DISP - R>(CDSA) 
r B 12 (BRR) 

-L STH, <DISP - ST>(CDSA) 

A STH, <DISP - V>(CDSA) 

ST STH, OISP - V> (CDSA) 
•-C STH, <DISP -T>(CDSA) 

IC ADR, <DISP -S>(CDSA) 

L BRR, <DISP - CE> (CDSA) 
^EX ADR, BCR (FSA) 
■-L BRR, <LN - X* (LAT) 
-BR BRR 
U*MVC <DISP - CE>(4, CDSA), <LN - |> (LAT) 

L <NXTR>, <DISP - SMF - A>+ 4 (CDSA) 

L GDSA, (PBT) 

L BRR, <DISP - 1> (GDSA) 

M STH, <DISP - SMF - A>+ 20 (CDSA) 

SR <NXTR>, BRR 

L BRR, <!DISP - 2 > (GDSA) 

M STH, <DISP - SMF - A>^ 20 (CDSA) 

LR ADR, BRR 

M STH, <DISP - V>(CDSA) 

AR <NXTR>, BRR 

LR BRR, ADR 

M STH, -=D1SP - ST>(CDSA) 

ST BRR, <DISP - IN>(CDSA) 

L BRR, <LN - B>(LAT) 
r- BR BRR 
L^A <NXTR>, DISP-IN (CDSA) 
— LR ADR, <NXTR> 

L GDSA, (PBT) 

MVC 0(4, ADR), <DISP.-0> (GDSA) 

L BRR, <DISP - R>(CDSA) 



CP6 (For) stores the for statement's classification byl 
FSTAB) and F.S.No. in the Operand Stack.. 
- CP40 (As 



CP45 ( Until ) generates code to t, 

store the step value. 



CP47 (entered from CP45) generates code to 



CP49 (entered from CP47) generates code to load the conditional 

entry address and to invoke the Fixed Storage Area routine 
BCR, which branches to the subscript initialization sequence 
(for the first cycle) or to the iterated statement (for every 
subsequent cycle) or to the next for list sequence (if the step 

-v element is exhausted). CP49 also generates code to store the 

iterated statement address in the conditional entry field. 
*— CP43 (S_tgo) generates code, for the second step element, to assign 
the initial value to the controlled variable. 



CP45 ( Until) generates code to t< 



. (fro: 



[ Assign ) reserves entries in the Label Address Table and 
in the current Data Storage Area, and locates the OPTAB 
entry for the subscript expression to be optimized in the 
for statement. CP40 also generates code to store the 
Subscript Initialization address (<LN - Sl>) in the con- 
ditional entry address field. 
— CP43 ( Step ) generates code, for the first step element, to assign 
the initial value to the controlled variable. 



endless loop and to 



— CP47 ( Comma ) generates code to store the test value, to compute 
and store the step addition address, and to branch around 
the step addition sequence (for the first cycle only). 



e to add the step value 



trolled variable' 
the step value. 



5) generates code to compare the con- 
ith the test value and to load the sign of 



CP47 (Do) generates code t< 

store the step additior 
around the step additi 



to branch 
* cycle only). 



-CP47 (reentered from CP45) generates code to compare the con- 
trolled variable with the test value and to load the sign of 
the step value. 



BCR 



CP49 (entered from CP47) generates code to load the conditional 

entry address, to invoke the Fixed Storage Area routir 

(see above), to load the exit address and branch, and 

store the iterated statement address in the conditional 

field. 



- Subscript It 



t. Routine (antwrl from CP49) makes 

for the optimized subscript in SUTABC and genera 
'~ : ' ! ilization sequence which c ' 



of the subscripted variable, add A [o] n 
the cyclical address increment F * P. . 



•'(Step). 



>, BRR 



.[N., 



n following the end of the for 



"CP47 then generates code to branch around the following sub- 



. ine_(entered from CP47) generates the 

subscript incrementation sequence. 
CP41 ( [) inspects SUTABC and sets a switch (CMT) to specify 
to CP69 (which normally processes the operators # arid -) 
and CP38 ( ] ) that the subscript has been optimized. See 

CP1 2 (Assign ) stacks the operator Assign . 
k:P20 (Etfl - end of for statement) generates code to assign the 

value specified (0) to the subscripted variable. 
CP81 ( Eta ) generates code to load the return address and branch 

to the step addition sequence. 



Figure 70, 



Logi 
cont 



cal structure of the 
aining step elements 



code generated for an Elementary Loop 
and an optirctizable subscript expression 



LU6 



l212iie^^g£29£l^_E2iil_lCP43)^ 



Source Dperater: S.tep_, tfhil e. Do, or Comma 
Stack Operater: For:_= 

The source operator follows the ini- 
tial value (represented by the last stack 
operand) to be assigned to the controlled 
variable. 

Except in the case of a Counting Loop 
containing no subscript expressions 
(indicated by bit 6, OPTB, in the for 
statement's classification byte), code is 
generated (by branching to CP20) to 
assign the initial value to the con- 
trolled variable (Figures 67-70 and 72, 
73). 

Depending on the source operator and 
the loop classification, code is then 
generated as illustrated in the figures 
indicated below. 

Comma (end of an arithmetic element) 
Counting Loop: Figure 66. 
Elementary or Normal Loop: Figure 67. 
Elementary Loop (with optimization): 
Figure 70. 

Do (end of an arithmetic element and of 
the for list) 
Counting Loop: CP47 is entered at 

DWITSRS. Figure 66. 
Elementary Loop: Figure 67. 

Step 

Counting or Elementary Loop: Figure 
63-70 (no code) . 
Normal Loop: Figure 72. 

While 

Elementary or Normal Loop: Figure 73. 

The stack operand representing the 
initial value of the controlled variable 
is released, and, except in the case of 
the Comma, the source operator is 
stacked. 



Compiler Program Np.t*5 (CP45) 



Source Operator Until 
Stack Operator Step 

Until is preceded by the step value, 
represented by the last operand in the 
stack. 

Depending on the for statement's loop 
classification, code is generated as 
illustrated in the figures indicated 
below: 



Counting Loop: Figure 68 (no code). 
Elementary Loop: Figures 69 and 70. 
Normal Loop: Figure 72. 



In every case., the operator Until is 
stacked, replacing the stack operator 
Steg. 



CP45 is also 
DVH3) from CPU 7. 



entered (at DVE2 and 
See Figures 69 and 70. 



Co mp il er Prog ram No. U7 (CPU7) 



Source Operator: 
Stack Operator: 



Comm a or Do 
Until 



The source operator is preceded by the 
test value, represented by the last stack 
operand. 

Depending on the for statement's loop 
classification, code is generated as 
illustrated in the figures indicated 
below: 

Counting Loop: Figure 68. The figure 
illustrates a Counting Loop contain- 
ing step elements and an optimized 
subscript expression. As indicated 
in the figure, the subscript ini- 
tialization and subscript incremen- 
tation sequences are generated at 
the end of the for list (indicated 
by Do) by entry to the Subscript 
Initialization Routine (DWG3) and 
the Subscript Incrementation Routine 
(UVA1) -- see below. Where sub- 
script optimization is not required 
(Bit 6 of the classification byte = 
0) , these routines are not entered. 

Elementary Loop: Figures 69 and 70. 
Both figures illustrate a Counting 
Loop containing step elements, but 
Figure 70 shows a Counting Loop 
containing in addition an optimiza- 
ble subscript expression. As indi- 
cated in the figures, CP47 enters 
CPU 5 (at DVE2 or DVH3, depending on 
whether the controlled variable is 
integer or real) and exits to CP49 
(at EMG1). The latter calls the 
Subscript Initialization and Increm- 
entation routines, where necessary. 



Normal Loop: Figure 
shows that CP47 
EMG1 ) . 



72. The figure 
exits to CPU 9 (at 



CPU 7 is also entered (at DWTTERS) from 
CP43 (Figure 66). 
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Compiler Program flo.49 (CP<*9) 



Source Operator: 
Stack Operator: 



Comma or Per 
While 



The source operator is preceded by a 
boolean expression, representing the con- 
dition specified in the while element. 
The for statement must be an Elementary 
or Normal Loop. Figure 73 illustrates 
the code generated for either of these 
loop classifications, where the source 
operator is Do, marking the end of the 
for list, and where the for statement (an 
Elementary Loop) contains no optimizable 
subscript expressions. The code generat- 
ed in the case of the Comma operator is 
identical, except that the address loaded 
before the conditional branch is that of 
the iterated statement. Where an Elemen- 
tary Loop contains optimizable expres- 
sions, the code generated by the Sub- 
script Initialization and Incrementation 
routines (US&1 and UVM — see below), on 
call from CP'49 is similar to that illus- 
trated in Figure 70. 

CP49 is also entered (at EXITERS) from 
CP43 and (at EM31) from CP47 (see Figures 
69, 70 and 72) . 



Subscript Initialization Routine (DW53 or 
UShl) 



This routine is entered from CP47 and 
CP49 at the close of a for list 



(indicated by the source operator Do)« 
when it is determined (by inspection of 
bit 6 of the for statement's classifica- 
tion byte r OPTBYTE' f entered in the oper- 
and stack by CP6) that the iterated 
statement contains a subscript expression 
to be optimized. On recognition of the 
operator For # CP6 will have located the 
first of one or more entries in the 
Optimization Table (Figure 50) represent- 
ing the subscript expression(s) to be 
optimized in the for statement. 



The Subscript Initialization Routine 
constructs an entry in the Subscript 
Table-C (SiJTABC) , Figure 71, for every 
subscripted variable containing optimiza- 
ble subscript expressions represented by 
entries in the Optimization Table, pro- 
vided no previous entry was made for the 
same subscript in an enclosing for state- 
ment or in the current for statement, and 
generates a subscript initialization 
sequence (see "Subscript Optimization" 
above, and Figures 68 and 70). 



Subscript Table-C is referenced by 
CP41 and CP38 (see "Arrays") , which are 
entered whenever the operators [ and 
Com ma in a subscripted variable are 
encountered. Its function is to enable 
CPU1 and CP38 to identify the subscript 
expressions (if any) in a subscripted 
variable which have been optimized, and, 
if any subscripts have been optimized, to 
enable CP38 to locate the stack operand 
which specifies the object time register 
(<NXTR>) containing the pre-calculated 
array element address. 







r r t t r n 

|<F3N>|<RN>|<Rel. address | <A.ddress of stackj <Subscript | 
I II sf i> I operand> | position key>| 
L J. J. jl x J 



<F3N> 
<RSF> 



<Rel. address 
of [> 

<&ddress of stack 
operand> 

<Subscript 
position key> 



<For Statement iSIumber> 

<Number of the Modification Level 2 

text record containing the operator 

[ which precedes the first subscript 

of the subscripted variable in the 

iterated statement> 
<Relative address of the operator [ 

in the text record specified by 

<RN> above> 
<&ddress of the stack operand repre- 
senting the pre-calculated array 

element address> 
(16 bits representing subscript 

positions 0-15. Bit=l if the subscript has been optimized.) 



Figure 71. Entry in Subscript Table-C (SOTAJBC) 
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Source Text: 'FOR' V := 1 'STEP' 1 'UNTIL' 5, 10'STEP'2 'UNTIL' 12 'DO' 'BEGIN'. 
Comment Object Code 



Compiler Progrom 



1st Step Element 
Base = Constant Pool . 



Controlled variable (V) = Initial Value (1). 



Compute the return address and store in the 
return address field. 



Compute and store the sign of the step value.. 



Bypass the step addition sequence when the 
sign of the step value is computed again 
after the controlled variable has been in- 
cremented. 



Add the step v 
able. 



ilue to the controlled v 



Branch to compute the sign of the step 
value again, before testing for exhaustion 
of the step element. 



Branch to the iterated statement ( LN - I 
if the step element is not exhausted; other- 
wise begin the next step element. 



Controlled variable (V) = Initial Value (10) 
Compute and store the return address. 



Compute and store the sign of the step value. 



Bypass the step addition sequence when the 
sign of the step value is computed again 
after the controlled variable has been in- 
cremented . 



Add the step value to the controlled v 



Branch to compute the sign of the step 
value again, before resting for exhaustk 
of the step element. 



Branch to the exit address if the step 
element is exhausted, otherwise execute 
the iterated statement . 



Iterated Statement (<LN - l>) : 



Load return address and branch. 



L GDSA, (PBT) 

MVC <OISP-V>(4, CDSA), <DISP - 
BALR STH, 
LA STH, 8 (STH) 
STH STH, <DISP- R>(CDSA) 
- L GDSA, (PBT) 
L STH, <D.ISP -1>(GDSA) 
LTR STH, STH 
BALR BRR, 
BNZ 8 (BRR) 
SR BRR, BRR 
BCR BRR, 



SLL I 



, 1 



ST BRR, <DISP -S>(CDSA) 

L BRR, <LN -B>(LAT) 

XI <DISP-R>(CDSA), X '80' 
r BCR 4, BRR 

A STH, <DISP - V>(CDSA) 

ST STH, <DISP - V>(CDSA) 

L BRR, <DISP -R>(CDSA) 

BR BRR 

■L STH, <DISP -V> (CDSA) 

C STH, <DISP - 5 > (GDSA) 

IC ADR, <DISP - S> (CDSA) 

L BRR, <LN - l> (LAT) 
■=EX ADR, BCR (FSA) 
*»L GDSA, (PBT) 

MVC <DISP - V>(4, CDSA), <DISP - 

BALR STH, 

LA STH, 8 (STH) 

ST STH, <DISP - R>(CDSA) 
-[— L GDSA, (PBT) 

L STH, <DISP - 2>(CDSA) 

LTR STH, STH 

BALR BRR, 

BNZ 8 (BRR) 

SR BRR, BRR 

BCR BRR, 

SLL BRR, 1 

ST BRR, <DISP -S>(CDSA) 

L BRR, <LN -B1>(LAT) 

XI <DISP - R>(CDSA), X '80' 
C-BCR 4, BRR 

A STH, <DISP -V> (CDSA) 

ST STH, <DISP - V> (CDSA) 

L BRR, <DISP - R>(CDSA) 

BR BRR 

L STH, <DISP -V>(CDSA) 

C STH, <DISP -12>(GDSA) 

XI <DISP -S>(CDSA), X 'E0' 

IC ADR, <DISP - S>(CDSA) 

L BRR, <LN -X>(LAT) 

EX ADR, BCR (FSA) 

[Iterated statement 



~CP45 ( Until ) generates code to compute and store the sign of the 
step value, to add the step value to the controlled variable, 
and to compute the sign of the step value again. 



CP6 (For ) stores the for statement's classification byte and 
F.S.No. in the Operand Stack. 

CP40 (Assi gn) reserves entries in the Label Address Table for the 
iterated statement address (<LN - l>) and the exit address 
(<LN - X>) and in the current Data Storage Are for the 
return address field (<DISP - R>). 
-CP43 (Stfip) generates code, for the first element, to assign the 
initial value to the controlled variable and to compute and 
store the return address. 



-CP47 ( Comma ) generates code to compare the controlled variable 
with the test value and to load the sign of the step value. 



-CP49 (entered from CP47) generates code to load the iterated 
statement address and to invoke the Fixed Storage Area 
routine BCR, which branches to the iterated statement if the 
step element has not been exhausted. 



-CP43 (Step) generates code, for the second step element, to assign 
the initial value to the controlled variable and to compute 
and store the return address. 



-CP45 ( Until ) generates code to compute and store the sign of the 
step value, to add the step value to the controlled variable, 
and to compute the sign of the step value again. 



-CP47 (Do) generates code to compare the controlled variable with 
the test value, to invert the sign of the step value and to 
load the inverted sign of the step value. 



-CP49 (entered from CP47) generates code to load the exit address 
and to invoke the Fixed Storage Area routine BCR, which 
branches to the exit address of the step element is exhausted. 



L BRR, -cDISP - R>(CDSA) 
= BR BRR] 



- [Next instruction following the 
end of the for statement.] 



-CP81 (Eta) generates code to branch to the return address. 



>> 
J 



Figure 72. Logical structure of the code generated for a Normal Loop 
containing step elements 
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Form Y33-8000-Q, Page Revised by TNL Y33-8001, 12/15/67 



Sourcejext: 'FOR' V :=1 'WHILE' B 'DO' 'BEGIN' 'END' 

Comment Object Code 



Compiler Program 



Assign and Test (<LN - AT>) 
Base = Constant Pool . 

Controlled Variable (V) = Value 1 . 

Store the Assign and Test address in the 
return address field. 

Test if B is true. 
Load the exit address. 
Branch to exit if B is false. 



Load the return address and branch to 
Assign and Test. 

Exit (<LN - X>) 



r-^L GDSA, O(PBT) 

MVC <DISP - V> (4, CDSA), <DISP - 1> (GDSA) 

MVC <DISP - R>(4, CDSA), <N - AT> (LAT) 

TM<DISP -B> (CDSA), X '01' 

L BRR, <LN - X> (LAT) 
-pBCR 8, BRR 

[iterated statement 



CP6 ( For ) stores the for statement's classification byte (from 
FSTAB) and F.S.No. in the Operand Stack. 

CP40 ( Assig n) reserves entries in the Label Address Table for 
the Assian and Test address (<LN - AT >) and the exit 
address (<LN - X>) and in the current Data Storage . 
Area for the return address field (<DISP - R>). 

CP43 ( While ) generates code to assign the value specified to 
the controlled variable and to store the Assign and Test 
address in the return address field. 



CP49 (Do) generates code to, test the condition specified in the 
wRile element and to enter the iterated statement if the 
condition is true or to branch to the exit address if the 
condition is false. 



L BRR, <DISP - R> (CDSA) 

. BR BRR] 

• [ Next instruction following the end of the for 
statement.] 



— — CP81 ( Eta - operator marking the close of the for statement) 

generates code to branch to the Assign and Test sequence. 



•Figure 73. Logical structure of code generated for Elementary Loop or Normal Loop 
containing a while element 



Initially, a search is made to deter- 
mine if SUTABC contains any entries 

(indicating one or more optimized sub- 
scripts in an enclosing for statement) 
and, in this event, if there is an entry 
for the same subscripted variable 

(determined by comparing the record num- 
ber and relative address in bytes 11-13 
of the OPTAB entry previously located by 
CP40, with bytes 1-4 of the SUTABC 
entry) . The action taken depends on the 
result of this test: 

1. No entry for the subscripted varia- 
ble is found in SUTABC. 

A new entry is constructed in 
SUTABC, the contents of bytes 11-13 
of the OPTAB entry being copied into 
bytes 1-3 of the SUTABC " entry, the 
current For Statement Number into 
byte 0. An object time register 
(<NXTR>) is reserved in which the 
pre-processed array element address 
will be calculated, and the address 
of a stack operand representing the 
pre-processed address is entered in 
the SUTABC entry. 

Code is generated to load <NXTR> 
with the array" s zero-base address 
CaddA[0,0,0]) , the address of the 



array's Storage Mapping Function 
(Figure 62) being obtained from the 
OPTAB entry. 



For every OPTAB entry which contains 
the same address data in bytes 11-13 
(all such entries representing 
optimizable subscript expressions of 
the same subscripted variable) , the 
corresponding bit in bytes 7 and 8 
of the SUTABC entry is turned on (to 
specify the optimized subscript 
position) and code is generated to 
add the product (Addend) * (Address) 
Increment Factor) , A*P i+ i to <NXTR> 
and to add the product 
(Factor)* (Address Increment Factor) , 
F*Pi+i to ADR. When all of the 
OPTAB entries for the same sub- 
scripted variable have been P^o~ 
cessed in this way, code is generat- 
ed to multiply the contents of ADR 
by the initial value of the con- 
trolled variable and to add the 
result to NXTR , which now, contains 
the guantitv 

addAC0,0,0]+ A*? i + i+]C (F*P i+ j)*V . 
Code is then generated to multiply 
the contents of ADR by the step 
value and to store the result, 
(F*P i +:i )*Step, representing the 
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cyclical address increment, in the 
current Data Storage Area. 

If any other OPTAB entries are found 
relating to another subscripted 
variable in the current for state- 
ment, a new SUTkBC entry is con- 
structed and the pre-processed 
address and cyclical address incre^- 
ment are computed in the manner 
described. 

2. An entry for the same subscripted 
variable is found in SUTABC. This 
indicates that a subscript initiali- 
zation sequence was generated in an 
enclosing for statement for one or 
more subscripts of the same sub- 
scripted variable. In this case, 
the same SUTABC entry is used, the 
contents of byte being over- 
written with the current For 
Statement Number, and code is gener- 
ated to load <NXTR> with the pre- 
viously calculated array element 
address, namely 

add A[0,0,0]+2A*P. +2(F*P: . . ) *V f . 

1+1' ITT 

The object time location of this 
pre-processed address is determined 
with the aid of the operand address 
in the SjTABC entry. 



Subscript Incrementation Routine (UVA1) 



This routine is entered from CP47 and 
CPU 9 when address incrementation is 
required for one or more optimized sub- 
scripts (the for statement contains a 
step element). Code is generated to add 
the cyclical address increment, 
2(F*P,* +1 ) *Step, to the pre-processed 
array element address. See Figures 68 
and 70. 



ASSIGNMENT STATEMENTS 



hn assignment statement is implemented 
essentially by a MOVE instruction or a 
STORE instruction, whose effect is to 
transfer the value of the expression to 
the right of the assignment operator to 
the Data Storage Area field of the oper- 
and to the left of the assignment opera- 
tor. The expression on the right may be 



a simple variable or a constant 
whose object time value is contained 
in a Data Storage Area field, or 

a complex expression, whose value 
may be contained in a register or a 
Data Storage Area field. 



Compi ler Program No. 12 (CP12) 



Source Operator: Assign 

Stack Operator: Beg in, Semicolon, Then-s, 
Els e-s, or Do "" 

The source operator identifies the 
beginning of an assignment statement. 

CP12's function is to test the charac- 
teristic of the left variable 
(represented by the stack operand) for 
assignability, and to stack the Assign 
operator. If the operand is a formal 
parameter, in which case assignability 
can only be determined at object time, 
CP12 generates code to check for assigna- 
bility by inspecting the characteristic 
in the relevant actual parameter code 
sequence (see "Procedures"). Thereafter* 
a call is made to OPDREC which generates 
code to call the actual parameter. 



Compile r Program No. 81 (CP81 ) 



Compiler Progra m No. 21 (CP21) 



Source Operator: Eta 
Stack Operator: Do 

Eta marks the close of the current for 
statement. CP81 generates the terminal 
instructions of the iterated statement 
(see Figures 66-7D and 72, 73) and 
deletes all entries in SUTABC. All stack 
operands relating to the current for 
statement are released and the operator 
Do is released. 



Source Operator: Assign 
Stack Operator: Assign 

The operators identify a 
assignment, e.g., a:=b:=c. 



multiple 



Jnless one or both of the last two 
stack operands are all-purpose operands, 
control is passed to CP12, in which the 
last operand is tested for assignability. 
The operand before last will have been 
tested previously. 
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Compiler Program No. 20 (CP20) 



Source Operator: -Semicolon, Epsilqn, E ta , 

End or Else"" 
Stack Operator: Assign 

The combination of source and stack 
operators indicates the end of an assign- 
ment statement. The last two stack oper- 
ands represent the operands to the left 
and right of the assignment operator, 

CP20's function is to determine if the 
operands are compatible (i.e., real-real, 
integer- integer, real-integer, or 
integer-real, or boolean-boolean) and, if 
one is real and the other integer, to 
generate a call to the appropriate Fixed 
Storage Area routine to convert the right 
operand to the same type as that of the 
left operand. The call, where required, 
is generated by TRINRS or TRREIN. 

If both operands are boolean, and if 
the right operand is a boolean constant, 
the assignment of the value of the right 
operand to the left variable is imple- 
mented by an MVT instruction. In all 
other cases (i.e., where the operands are 
a combination of real and/or integer, or 
where both operands are boolean, the 
right operand being a boolean variable) , 
the assignment is implemented by entry to 
the Real-Real or Integer-Integer routine 



of Compiler Program No. 69 CCP69). The 
latter routines generate code to store 
(or move) the value of the right operand 
(depending on whether the latter is con- 
tained in a register) to the Data Storage 
Area field of the left variable (the 
object- time address of which is contained 
in the stack operand before last) . A 
boolean assignment is handled by the 
Real-Real routine,, which generates the 
necessary move instruction (in the object 
code, boolean operands are at no point 
loaded into registers). 

At re-entry to CP20 from CP69, the 
Assign operator is released,, and unless 
the preceding stack operator is For, 1? § 
or Ussier n . control is passed to COMP w 
after the last two stack operands have 
been released. The operator For indi- 
cates that CP20 was entered from CPH3 for 
the special case of an assignment to the 
controlled variable in a for statement 
(see CP43 under "For Statements"). The 
operator «fc indicates another special 
case, in which CP20 is used in the 
generation of code for an array declara- 
tion (see CP51 under "Arrays"). The 
operator Assign indicates a multiple 
assignment, e.g., a: = b: = c, where the 
assignment a:=b remains to be implement- 
ed. The remaining assignment is generat- 
ed by branching back to a point (BIE4) 
within CP20, after moving the last oper- 
and downward (replacing b by c) so as to 
specify the equivalent assignment a:=c. 
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:0$DXTIOXhL STATEMENTS 



Ihe implementation of a conditional statement in the code generated by the compiler 
ma/ be demonstrated by the following example: 



...f-'IF 1 B>C f rHEN f A:=B + C 'ELSE' A:=B-C;. 
Sour ce_3p3ra tor Obj ect Time Action 

'IF' Store occupied registers 



Compiler Program 



> 

THES 1 



CP8 stacks If- s and switches to EXC 
CP6 7 stacks > 
Evaluate (B>C). Store True CP69 releases > 
Dr ffalse in Data Storage 
Area field. 



Branch to E (below) if 
B>C is False 



ELSE' Compute (B+C) 



Store (B+C) at A 
Branch to F (below) 



; E: Compute (B-C) 

Store (B-C) at A 
F: [Next instruction] 

The symbols EXC, PGC and STC represent, respectively, the Expression Context Matrix, 
the Program Context Matrix, and the Statement Context Matrix (Appendix V), The special 
operators If-s, Then-s, and Else-s (see Appendix I-d) identify the delimiters f IF', 
•THEN' , and 'ELSE' as relating to a conditional statement, as opposed to the same 
delimiters occurring in boolean or conditional expressions. 



CP78 replaces If-s 


by Then- s and switches 


to PGC 








CP12 


stacks Assiqn 


CP22 


switches 


to 


EXC 


CP66 


stacks + 






CP6 9 


releases 


+ 




CP70 


switches 


to 


STC 


CP71 


switches 


to 


PGC 


CP20 


releases 


Ass 


Jiqn 


CP17 replaces Then- 


■s by Else-s 


CP12 


stacks Assiqn 


CP22 


switches 


to 


EXC 


CP66 


stacks - 


(minus) 


CP6 9 


releases 


- 1 


[minus) 


CP70 


switches 


to 


STC 


CP7 


switches 


to 


PGC 


CP20 


releases 


ASE 


;iqn 


CP18 releases Else- 


■s 
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Soggilgg^g.gog£ig-£9r§. m .l£?!2. 



Source Operator: 
Stack Operator: 



If 

5§3ili 9 Semicolon , Else-s , 

or Do 



In the context identified by the stack 
operator, If marks the beginning of a 
conditional statement. 

After stacking the operator If-s and 
addressing the Expression Context Matrix, a 
call is made to the CLEARRG subroutine, 
which generates code to store all object- 
time registers in use. 



At entry to CP78, the stack operand 
addresses a Data Storage Area field 
in which the value of the boolean 
expression will be scored at object 
time. 

Before control is returned to SNOT, 
the stack operator If-s is replaced 
by Then-s and the Program Context 
Matrix is addressed. 

CASE B: See "Conditional Expressions". 



Compiler Program No.1 7 (CP17) 



S^mpilsr^Program^No^yi^iCPTB). 



Source Operator: 
Stack Operator: 



CASE A 



If-s 



Then 



CASE B 



If 



CASE A: Then marks the end of an if clause 
('IF' (boolean expression) 'THEN') 
in a conditional statement. 

Code is generated to test the value 
of the preceding boolean expression 
(which may be a boolean variable or 
constant, a boolean function 
designator, a relation or a more 
complex boolean expression) and, if 
the value is Fal se, to branch to 
the first instruction representing 
the alternative statement following 
'ELSE* (or if there is no alterna- 
tive statement, to the first 
instruction representing the next 
sequential statement) . The branch 
instruction references an entry in 
the Label Address Table (reserved 
by CP78) in which the relative 
branch address will be stored by 
CP17. unless the boolean expres- 
sion preceding 'THEN' is a simple 
boolean variable or constant, code 
will have been generated by other 
compiler programs, before entry to 
CP78, to evaluate the expression. 



Source Operator: Else 
Stack Operator: Then-s 

Else precedes the second alternative in 
a conditional statement. 

CP17 replaces the stack operator Then-s 
by E lse-s and generates code to branch 
around the immediately following sequence 
representing the second alternative state- 
ment. The code references a new entry in 
the Label Address Table in which the rela- 
tive branch address will be stored by CP18. 
CP17 also stores the relative address 
(PRPOINT) of the second alternative code 
sequence in the Label Address Table entry 
(addressed by a stack operand) previously 
reserved by CP78. 



Compiler_Proc[ram No. 18 (CP18 ) 



Source Operator: Semiccdon, Epsilon , Eta , 

or End 
Stack Operator: The n-s or Else-s 

The source operator marks the end of a 
conditional statement. 

CP18 releases the stack operator, stores 
the displacement (PRPOINT) of the next 
object code instruction in the Label Adress 
Table entry reserved by CP17 (or CP78), and 
exits to COMP. 
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2QNDiriON^L_EKPRESSIONS 

The implementation of a conditional expression in the code generated by the Compiler 
may be demonstrated by the following example: 



• • . ; A:=B+( ' IF 1 B>C THEN' C ELSE' -C) ; ... 
Source Operator Object Time fiction 



IF' 



THEN 1 



'ELSE' 

-(minus) 

) 



Store occupied registers 

Evaluate (B>C). Store True 

or False in Data Storage 

Area field 

Branch to E (below), if 

(B>C) is False 

Load C. Branch to 

F (below) 



E: Load -C 

Transfer -C to same 

register as C 
F: Compute (B+/-C) 



A:=(B*/-C) 



Compiler Progra m 

CP12 stacks Assign 

CP22 switches to EXC 

CP66 stacks + 
CP64 stacks ( 
CP8 stacks If 

CP67 stacks~> 

CP69 releases > 



CP78 replaces If by Then 

CP87 replaces Then by Els e 

CP66 stacks - (minus) 
CP6 9 releases - (minus) 
CP7 9 releases Else 

CP6 8 releases ( 
CP69 releases + 
CP70 switches to STC 
CP71 switches to PGC 
CP2 releases Assign 



Tha abbreviations EXC, STC r and PSC represent the Expression Context Matrix, the 
Statement Context Matrix and the Program Context Matrix, respectively. 
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Compiler ^Progra m Np_. 6<j, (CP6*0 



Compiler, Prog ramNo. 78 (CP78 ) 



Source Operator: 

Stack Operator: (See decision matrices) 

CASE A: See "Procedures". 

CASE B: See "Standard Procedures". 

CASE C: The source operator precedes a con- 
ditional, boolean or arithmetic 
expression. The source operator is 
stacked. 



Compiler Program No. 83 (CP8Q) 



Source Operator: If 
Stack Operator: ( 

The combination of operators indicate 
that If opens a conditional expression 
enclosed by parentheses. 

Code is generated, by call to CLEARRS, 
to store all occupied object time reg- 
isters, and If is stacked. 



CASE A CASE B 

Source Operator: Then 
Stack Operator: If-s If 

CASE A: See "Conditional Statements"* 

CASE B: Then follows a boolean expression 
in a conditional expression* 

CP78 generates code to test the 
value of the immediately preceding 
boolean expression and to branch to 
the first instruction representing 
the second alternative expression 
following 'ELSE*, if the value is 
False. Unless the boolean expres- 
sion consists solely of a boolean 
variable or constant, code will 
have been generated, before entry 
to CP78, to evaluate the expression 
and to store the value in a Data 
Storage Area field. The object 
time location of the stored value 
is addressed by the stack operand. 
The generated code references a new 
entry in he Label Address Table, in 
which the relative address of the 
alternative statement will be sub- 
sequently stored. Before exit to 
SNOT, the stack operator If is 
replaced by Then. 



Compiler Program No. 34 (CP34) 



Source Operator: If 

Stask Operator: (See Statement Context 
Matrix — Appendix V-b) 

If opens a conditional expression. If 
is stacked and the Expression Context 
Matrix is addressed. 



^Q(npiler_ Program _ No^65_(CP65) 



CASE A CASE B 



Compiler Prog ram No. 87 (CP87) 



Source Operator: Else 
Stack Operator: The n 

Else follows a designational, arithmetic 
or boolean expression representing the 
first alternative in a conditional expres- 
sion. CP87" s function is to ensure (by 
generating the requisite object code) , 
that: 

for designational expressions, the 
address value of the expression is 
loaded in ADR. 



Source Operator: If or Not 

Stack Operator: If or If^s (See Expression 

Context Matrix 
— App. V-c) 

CASE A: If opens a conditional expression 
inside an if clause. If is 
stacked. 

CASE B: See "Boolean Expressions". 



for arithmetic express ions, the value 
of the expression is loaded into a 
fixed point or floating point register, 
depending on whether the value is inte- 
ger or real. 

for boolean expressions, the value 
(2£U£ or False) of the expression is 
stored in a field in the current Data 
Storage Area. 
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tfhere the expression is complex, code 
will have been generated, before entry to 
CIP87, to evaluate the expression, and in 
this case, the value or address will 
already be contained in the appropriate 
register or Data Storage Area field. If 
however, the expression is a simple label, 
an arithmetic constant or variable, or a 
boolean constant or variable, CP87 gener- 
ates a Load or Move instruction. In all 
cases, the expression is represented by the 
stack operand pointing to a Label Address 
Table entry, a Data Storage Area field, or 
a register. 

CP37 also generates an unconditional 
brancn around the second alternative 
expression which follows 'ELSE'. The code 
references a new entry in the Label Address 
Table, in which the relative branch address 
will subsequently be stored by CP79. In 
addition, CP87 stores the displacement 
(PRPDIST) of the next object code instruc- 
tion in the Label Address Table entry 
previously reserved by CP78, representing 
the address of the second alternative 
expression. Before exit to SNOT, the stack 
operator Then is replaced by Else. 



i2!DeilM^5£23£liD-.No i 72_iCP79 )_ 



Source Operator: (See Expression Context 

Matrix — App. V-c) 
Stack Operator: Else 

The source operator marks the end of a 
conditional expression. It is preceded by 
a designational, arithmetic or boolean 
expression representing the second alterna- 
tive expression. 

2P79's function is: 

1. to generate the necessary object code 
such that, if the condition following 
'IF* is False, the address or value of 
the second alternative will be loaded 
in the sane register (ADR in the case 
of a designational expression) , or 
moved to the same Data Storage Area 
field as that specified in the coding 
for the first alternative expression 
(see CP87 above); and 

2. to generate, if necessary, a call to 
the Fixed Storage Area integer-real 
conversion routine, in the event one 
of the alternative expressions is real 
and the other is integer. 

The two alternative expressions are rep- 
resented by the last two stack operands. 
At exit from CP7 9, these operands are 
replaced by a single operand which address- 



es the object time register or Data Storage 
Area field in which the address or value of 
the particular alternative expression 
(depending on the condition identified at 
object time) will be contained after evalu- 
ation of the complete conditional expres- 
sion. 



Finally, the displacement (PRPOINT) of 
the next object code instruction is stored 
in the Label Address Table entry specified 
by an operand previously stacked by CP87, 
representing the address of the uncondi- 
tional branch following the first alterna- 
tive expression, and the stack operator 
Else is released. 



BOOLEAN EXPRESSIONS 



Object time boolean operations 
(specified in the source module by the 
operators ' AND' , 'OR', 'EQUIV, and ' IMPL' ) 
are performed in fields reserved for inter- 
mediate results in the current Data Storage 
Area (in the listing these fields are 
referred to as "Object Stack entries' 1 ) . 
When code to implement a boolean operator 
is to be generated, a test is first made to 
determine if the first operand constitutes: 

1. a logical constant or a declared boo- 
lean variable, or 

2. an intermediate boolean value. 

If the operand is a logical constant 
('TRUE' or 'FALSE') or a declared boolean 
variable (as in X'AND'Y), a field is res- 
erved in the current Data Storage Area (by 
incrementing pointer P -- see Figure 5*4) 
and code is generated to move the operand 
to the reserved field and to perform the 
specified boolean operation in that field. 
If, however, the operand is an intermediate 
logical value, representing the value, say, 
of a relation (as in A>B*AND'C>D), the 
generated code will execute the specified 
boolean operation in the Data Storage Area 
field containing the intermediate value. 

The operators 'AND' and 'OR* are imple- 
mented directly by the corresponding 
machine instructions. 'EQUIV is imple- 
mented by the combination Exclusive Or 
(inversion) and 0r # ' IMIPL 1 is implemented 
by interchanging the operands and by Exclu- 
sive Or (inversion) and Exclusive Or. 
Where the second operand is a logical 
constant (whose value is known at compile 
time), the object code utilizes immediate 
instructions. 
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Source Dperator: 

Stack Dperator: (See decision matrices 
— Appendix V) 



CP76 generates code to perform the spec- 
ified operation in a current Data Storage 
Area field* and releases the stack opera- 
tor. At exit to COMP, the stack operand 
addresses the Data Storage Area field in 
which the result ( Tru e or False) of the 
operation will be contained at object time. 



?ASE A: See "Procedures". 



CASE B: See "Standard Procedures". 

CASE C: The source operator precedes an 
arithmetic, boolean or conditional 
expression. The Expression Context 
Matrix is addressed and the source 
operator stacked. 



Compiler Program No. 77 (CP77) 



Source Operator: (See Expression Context 

Matrix — App. V-c) 
Stack Operator: Not 



gQgipiler_Program_No.65_(CP65X 



CASE A CASE B 
Source Dperator: If Not 
Stack Dperator: If or If-s (See Expression 

Context Matrix 
--Appendix V-c) 

CASE A: See "Conditional Expressions". 

CASE B: The logical operator No t identifies 
a boolean expression. Not is 
stacked. 



The source operator is preceded by a 
boolean operand (a constant, a variable or 
a complex expression) to be operated on by 
the stack operator Not. CP77 generates 
code to invert the logical value of the 
operand in a current Data Storage Area 
field, and releases the operator Not . 



ARITHMETIC EXPRESSIONS AND RELATIONS 



Compiler Program No. 64 (CP64) 



^^eiier^Program^No^S^^XQEiZI 



Source Operator: ( 

Stack Operator: (See decision matrices 
— Appendix V) 

CASE A: See "Procedures". 



Source Operator: (See Expression Context 
Matrix — &PP- V-c) 

Stack Operator: (See Expression Context 
Matrix — &PP- V-c) 

The source operator (which may be an 

arithmetic or relational operator or any 

one of the logical operators And, Or, 
Egaiv;* sr ImpI ) is stacked. 



CASE B: See "Code Procedures". 

CASE C: The source operator precedes an 
arithmetic, boolean or conditional 
expression. The Expression Context 
Matrix is addressed and the source 
operator stacked. 



l2IIl£iL£E_El23£l3~No^76_(_CP762. 



Compiler Prog ram No. 6 6 (CP66) 



Source Operator: (See Expression Context 

Matrix — App. V-c) 
Stack Dperator: And, Or, Eguiv, or Impl 

The source operator indicates that the 
operation specified by the stack operator, 
between the boolean operands represented by 
the last two stack operands, may be imple- 
mented. 



Source Operator: 
Stack Operator: 



+ or - 

(See Expression Context 

Matrix — &PP» V-c) 



If the source operator was preceded by 
an operand, the operator is stacked. If, 
however, the source operator was preceded 
by an operator, and the source operator is 

-(minus), the operator Monadic Mi:nu§ is 

stacked. 
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22Seii§^-El23L£§^^2i.il-.iQE^.ZL 



Source Operator: (See Expression Context 
Matrix — App. V-c) 

Stack Operator: (See Expression Context 
Matrix — App. V-c) 

The source operator cannot be implement- 
ed before the following expressions and 
operators are known. The source operator 
is stacked. 



Compiler Program No. 63 (CP63) 



Source Operator: (See Expression Context 

Matrix — App. V-c) 
Stack Operator: M[gnadic_Minus 

lue monadic minus operator is implement- 
ed by object code which loads the comple- 
ment of trie last stack operand. If the 
operaud was not previously loaded into a 
register, a load instruction is generated 
before the load complement instruction is 
generated. The stack operator is released. 



Compiler Program No. 6 3 _ (CP68) 



Source Operator: ) 
Stack Operator: ( 

The source operator marks the end of an 
arithmetic, boolean, or conditional expres- 
sion. The stack operator is released. 



Compiler Prog ram Nfo. 6 9 (CP69) 



Source Operator: (See Expression Context 
Matrix — App. V-c) 

Stack Operator: (See Expression Context 
Matrix — App. V-c) 

The priority rules specify that the 
arithmetic, relational or power operator in 
the Operator Stack shall be implemented. 

CP6 9 handles the generation of code for 
all of the following: 

Arithmetic operators: +,-,*,/, and -f- 

Relational operators: <,>,>,<,= and * 

Power operator (Power) 



Assignnent operator (Assign) . Assign- 
ment statements are processed ini- 
tially by CP12 and CP20 (see 
"Assignment Statements"), but the 
object code to implement an 
assignment is generated in most 
cases by a subprogram of CP69 
(Real-Real Routine or Integer- 
Integer Routine) , entered from 
CP20. 



The stack operator specifies an 
operation between the operands on either 
side of the operator (both of which must be 
arithmetic), represented by the last two 
operands in the Operand Stack. Each oper- 
and is first inspected by the OPDREC sub- 
routine, which determines if the operand is 
a formal parameter or a par a meter less pro- 
cedure, and if so, generates code to call 
the actual parameter code sequence or the 
parameterless procedure (see "Procedures") . 

Depending on the stack operator and the 
character of the operands (real or 
integer), control is passed to one of 
several major subprograms of CP69: 

Integer- Integer Routine (DHZB1) : 
Both operands integer. 
Operator: +, -, or any relational 
operator. 

Integer Division Routine (ISBl) 
Both operands integer. 
Operator: -f . 

Integer Multiplication Routine (IPB1) 
Both operands integer. 
Operator: *. 

Integer Power Routine (IUB1) 
Both operands integer. 
Operator: Power . 

Real -Real Routine (DHEB2) : 

First operand real, second operand 
real or integer. 

Operator: any relational operator. 
If the second (or last) operand is 
integer, a call is generated (by 
the TRINRE subroutine) to the 
Fixed Storage Area routine CNVTRD 
for integer-to-real conversion. 

Real-Integer Power Routine (I1B1) 

First operand real, second operand 

integer. 

Operator: Power. 

Real Power Routine (H0B1) 

Second operand real, first operand 
real or integer. 

Operator: Powe r. If the first 
operand is integer, a call is 
generated (by the TRINRE 
subroutine) to the Fixed Storage 
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Area routine CNVTRD for integer- 
to-real conversion. 



IntegerM ulti plicati on Routine ;,.(IPB1) 



After code to implement the indicated 
operation Has been generated, the last 
operator and operand in the Stack are 
released, and (except in the case of an 
assignment) the stack operand originally 
representing the operand to the left of the 
stack operator is modified to specify the 
object time register or Data Storage Area 
field containing the result of the 
operation implemented. 



This routine generates code to implement 
the operator * connecting two integer oper- 
ands, on call from CP69. Before generating 
code to implement the multiplication opera- 
tor, tests are made and appropriate object 
code generated, to ensure that one of the 
operands is loaded into an odd- numbered 
register and that the other operand is 
loaded into the preceding even- numbered 
register. 



Intege r Power Routin e (IUB1) 



integer:- Integer Routine (DHZBlj 



This routine generates code, on call 
from CP69, to implement the arithmetic 
operators + and -, and the relational 
operators < t >, >, <, =, and *, connecting 
two integer operands. It is also entered 
from CP20 for normal assignments (see 
"Assignment statements") and from CP51 (see 
"Arrays") . 

Except in the case of relational opera- 
tors, object time operations are performed 
in registers, and the routine handles the 
generation of object code to load an oper- 
and (where neither operand is contained in 
a register) by calling the appropriate 
subroutine in the Subroutine Pool. 

In the case of relational operators, a 
compare instruction is generated first and 
a call is then made to the Relational 
Siabroutine (IMB1), which generates code to 
move the value True or False (X'Ol* or 
X'OO'), depending on the condition code 
set, to a field in the current Data Storage 
Area. 

In the case of an assignment operator, a 
store or move instruction is generated. 



This routine implements the power opera- 
tor connecting two integer operands, on 
call from CP6 9, by generating a call to the 
standard Power function (Load Module 
IHIFII) in the ALGOL Library (Chapter 10). 
The code generated consists in part of 
instructions which store the object time 
addresses of the two operands (base and 
exponent) in a parameter list in the cur- 
rent Data Storage Area, in part of a 
calling sequence, which loads the address 
of the parameter list and branches to the 
standard Power function. 



Real-Real Routine (DHEB2) 



This routine generates code, on call 
from CP6 9, to implement the arithmetic 
operators +, -, *, and / and the relational 
operators <, < f >, >, = , and * connecting 
two operands, one (or both) of which is 
real (before entry, code will have been 
generated to convert the non-real operand, 
if any). The routine also generates code 
to implement an assignment, on call from 
CP20 (see "Assignment Statements"). The 
implementation of operators is similar to 
that of the Integer- Integer Routine, as 
regards arithmetic as well as relational 
operators, except that floating point reg- 
isters are used. 



Integer Division Routine (IS B1) 



This routine generates code to implement 
the operator 4- connecting two integer oper- 
ands, on call from 2P69. 

Before generating code to implement the 
division operator, tests are made and 
appropriate object code generated, to 
ensure that the first operand is loaded 
into an even-numbered register and that the 
next oil-numbered register is free. 



Real-Integer Powe r Routine (I1B1) 



This routine implements the power opera- 
tor connecting a real operand and an inte- 
ger operand, on call from CP69, by generat- 
ing a call to the standard Power function 
(Load Module IHIFRI or IHIFDI, depending on 
whether the precision of the base is short 
or long) in the ALGOL Library. The code 
generated is similar to that generated by 
the Integer Power Routine (see above) . 
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Real Power Routine (H0B1) 



Compiler Program No.2 3 (CP23) 



This routine implements the power opera- 
tor connecting two real operands, on call 
from CP69, by generating a call to the 
standard Power function (Load Module IHIFRR 
or IHIFDD, depending on whether the preci- 
sion of the base is short or long) in the 
ALGOL Library. The cDde generated is simi- 
lar to that generated by the Integer Power 
Routine (see above) . 



lOieiler^Program^g^B^lCPeS) 



Source Operator: 
Stack Operator: 



Semicolon , Epsi lon if Eta 

or End ~ 

Semicolon 



The source operator ends a statement in 
a block, a procedure, a for statement or a 
compound statement. If the source operator 
is a Semicolon, the SCHDL subroutine is 
called; otherwise the Semicolon in the 
stack is released. 



Source Operator: ) 
Stack Operator: ( 



Compi ler Program No. 7 (C P7) 



The source operator marks the close of 
an arithmetic, boolean or conditional 
expression enclosed by parentheses. The 
stack operator is released. 



Source Operator: For , Goto , If, [, ( or 

Assign 
Stack Operator: Beta , Pi, Phi 



SEMICOLON HANDLING 



Compiler Program No. 2q_(CP2<Q 



The source operator identifies the first 
statement in a block or a procedure. A 
Semicolon is stacked to ensure that, if a 
declaration is subsequently encountered, an 
error will be recorded by CP28. 



Source Operator: Delta 

Stack Operator: Beta, Pi or Phi 

Delta represents the semicolon terminat- 
ing a declaration or a Specification. A 
call is made to the SCHDL subroutine, which 
updates the Semicolon 2ount at SCSC and, if 
the TEST option is specified, generates a 
sail to the Fixed Storage Area TRACE rou- 
tine. 



:ompiler Program No. 25 (CP25) 



Source Operator: 
Stack Operator: 



Semicolon 

Beta, Pi, Phi or Begin 



The Semicolon marks the end of the first 
statement in a block, procedure or compound 
statement. The Semicolon is stacked (to 
ensure that, if a further declaration fol- 
lows, an error will be recorded by CP28) 
and the SCHDL subroutine is called (see 
CP24 above). If the Semicolon was preceded 
by an operand (in which case the operand 
logically represents a call for a paramet- 
erless procedure), a call is made to the 
PLPRST subroutine (which generates the 
appropriate procedure call or records an 
error) and the operand is released. 



CONTEXT SWITCHING 



Each of the three decision matrices 
(Appendix V) specifies the set of compiler 
programs to be entered for all possible 
pairs of source- stack operators within a 
particular context of the source module, 
identified as a program context,, a state- 
ment context and an expression context. As 
soon as a change in context occurs 
(signified by one or more critical source 
operators) , a corresponding change in deci- 
sion matrix is indicated. The appropriate 
change in matrix is effected by a particu- 
lar compiler program specified in the cur- 
rently operative matrix. (See "Decision 
Matrices" in this chapter). After the 
change has been effected, control is in 
every case passed to COMP, which branches 
to the compiler program specified in the 
new matrix for the original operator pair. 



Compiler Program No. 19 (CP19) 



Source Operator: Jf 
Stack Operator: Assign 
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A change from program to statement con- 
text is indicated. The Statement Context 
Matrix is addressed. 



LOGICAL ERROR RECOGNITION 



The following compiler programs are 
entered on detection of operator/operand 
sequences which are logically or syntacti- 
cally incorrect. Their function is 



:pmpiler Program Mo. 22 (CP22) 



1 . to record the error in the Error Pool ; 



Source Operator: (Any arithmetic, logical 

or relational operator) 
Stack Operator: Assign 

A change from program to expression 
context is indicated. The Expression Con- 
text Matrix is addressed. 



gompile^ Program No ,33 (CP33) 



2. to switch the Compiler to Syntax Check 
Mode (see Chapter 9), or, in one case 
(CP84), to terminate compilation; and 



to make appropriate adjustments to the 
Operator/Operand Stack, so as to per- 
mit syntax checking to proceed. 
Errors are recorded by a branch to the 
Error Recording Routine, which also 
switches to Syntax Check Mode. 



Source Operator: (Any arithmetic, logical 
or relational operator) 

Stack Operator: (See Statement Context 
Matrix) 

A change from statement to expression 
context is indicated. The Expression Con- 
text Matrix is addressed. 



Compiler Prog ram No. 26 (C P26 ) 



Source Operator; 
Stack Operator: 



Arr ay , Switch, Pi or Phi 
Then- s, Else-s, As sign or 
Semicolon 



^ofDeii^t^E^os^s^NOiyo^icpToi 



Source Operator: (See Expression Context 
Matrix -- App. V-c) 

Stack Operator: (See Expression Context 
Matrix — App. V-c) 

A change from expression to statement 
context is indicated. The Statement Con- 
text Matrix is addressed. 



The source operator identifies a dec- 
laration outside the block head, i.e., 
following or inside a statement. Error 
No. 166 is recorded and all stack operators 
and operands relating to the statement (if 
any) in which the declaration occurs, are 
released. The declaration will be pro- 
cessed (syntax checked) by the compiler 
program subsequently entered. 



Compiler Program No. 27 (CP27) 



22§9il§E«gIQ3£i:l_N[o i 71_XS£ZlI 



Source Operator: (See Statement Context 
Matrix — App. V-b) 

Stack Operator: (See statement Context 
Matrix — App. V-b) 

A change from statement to program con- 
text is indicated. The Program Context 
Matrix is addressed. 



Source Operator: 
Stack Operator: 



(See decision matrices 

— Appendix V) 

(See decision matrices 

— Appendix V) 



The stack and source operators represent 
an improper operator sequence. Error 
No. 194 or 19 5 (depending on whether the 
operators are separated by an operand) is 
recorded, and the Operator/Operand Stack is 
adjusted, after release of the last stack 
operator and operand (if any), according to 
the next stack operator, to permit syntax 
checking to proceed. 
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Compiler Progra m No.28 (CP28) 



Compiler Progfram No. 72 (CP72) 



Source Operator: elta 

Stack Operator; (See decision matrices 
-- Appendix V) 

Delta, which normally terminates a dec- 
laration, has been encountered outside the 
block head. Error No, 166 is recorded, and 
the Operator/Operand Stack is adjusted to 
permit syntax checking to proceed. 



Source Operator: 
Stack Operator: 

The combination Else. . . Else is valid 
only in a conditional expression (indicated 
if the stack operator above Else is 
Assi gn) . In this case,, control is passed 
to CP79; otherwise, control is passed to 
CP75, which records error No. 194 or 195. 



lOmpiler^Program^ND^^i^XCPZ^l 



Com p ile r Prog ram No. 73 ( CP73) 



Source Operator: Array, Switch, Pi or Phi 
Stack Operator: Be^in or JCo 

A declaration outside a block head has 
been encountered. Error No. 166 is record- 
ed and control passed to CPU for syntax 
checking of the declaration. 



Source Operator: If 

Stack Operator: (See Expression Context 
Matrix — App. V-c) 

The operator combination indicates that 
the opening parenthesis which should 
enclose the expression beginning with 'IF 1 
is missing. Error No. 160 or 161 is 
recorded,, and the operator ( is stacked. 



Compiler -Program, No. 30 ( C P3Q ) 



Compiler Program No. 7 4 (CP74) 



Source Operator: Label_Colon 
Stack Operator: (See Program Context 
Matrix — App. 7- a) 

A label has been incorrectly declared 
inside a statement. If the Label Colon was 
preceded by an operand (representing the 
label), error No. 169 is recorded and the 
Label Colon and the label are disregarded. 
Otherwise, an internal compilation error is 
indicated; control is passed to CP84, which 
records error No. 173 and terminates compi- 
lation. 



Source Operator: 
Stack Operator: 



(Any relational operator) 
(Any relational operator) 



A sequence of relational operators is 
invalid* Error No. 160 or 161 is recorded 
and the operator * is arbitrarily stacked, 
in place of the source operator,, in order 
to permit syntax checking to proceed. 



Compiler P rogram No. 7 5 (CP75) 



Source Operator: 
Stack Operator: 



(See decision matrices 

— Appendix V) 

(See decision matrices 

— Appendix V) 



Source Operator: 
Stack Operator: 



(See Program Context 
Matrix — App. V-a) 
(see Program Context 
Matrix — App. V-a) 



The stack and source operators represent 
an invalid operator sequence in the program 
context. Error No. 160 or 161 is recorded, 
depending on whether the operators are 
separated by an operand, and the Expression 
Context Matrix is addressed. 



The operator sequences represented by 
the stack and source operators is invalid. 
Error No. 194 or 195 is recorded. 



Compiler Program No. 84 (CP84 ) 



Source Operator: (See decision matrices 
— Appendix V) 
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Stack Operator: 



(See decision matrices 
— Appendix V) 



The invalid operator sequence represent- 
ed by the stack and source operators indi- 
cates that the source module contains one 
or more fundamental logical defects. Error 
No. 173 is recorded and the Compiler is 
terminated, by exit to CPERR1. 



Compiler Progr am No. 3 6 (CP86) 



These routines are described elsewhere 
in this Chapter. 



Change Input Buffer ( JBUFFER) 



Re-sets a pointer (SOURCE-register 6) to 
address a buffer containing a new record of 
the Modification Level 2 text and READS a 
further record from SYSUT2 into the alter- 
nate buffer. Called by SNOT,, CP4, CP51, 
and CP66 on recognition of the record-end 
character Zeta. 



Source Dperator: Else 
Stack Operator: If_ or If-s 

The operator Then is missing in the 
source text. Error No. 160 or 161 is 
recorded and the operator Then or Then-s is 
stacked, in place of Else. 



CLOSE OF SOURCE MODULE 



Compiler Program No. 3 (CP3) 



Source Operator Omega 
Stack Operator: Alpha 

SiSisli marks the end of the source 
module. Providing the source module is not 
a precompiled procedure (determined by 
inspection of the HCOMPMOD Control Field- 
Appendix IV), code is generated to branch 
to the Termination Routine TERMIN in the 
Fixed Storage Area. Control is then passed 
to CPEND, the normal exit from IEX51. (See 
"Subroutine Pool".) 



SUBROUTINE POOL 



The Subroutine Pool, contained in 
Control Section IEX50000,, comprises the 
subroutines used by most compiler programs 
in common, as well as a short initializa- 
tion routine and the scanning and decision- 
making routines Scan to Next Operator 
(SSOT) and Compare (COMP). The latter two 
routines are described in an earlier 
section of this chapter. 



Next OPT AB Entry (NXT OPT) 



Increments a pointer (AOPTABE) by 14 
bytes to address the next entry in the 
Optimization Table, and re-sets the pointer 
to a new record where the end of the 
current record has been reached. Called by 
CP40, CP47, and CP49, when the Optimization 
Table is being searched for subscript 
expressions to be optimized in a for state- 
ment. 



Error Recor di ng (SERR ) 



Stores an error pattern in the Error 
Pool and sets the Syntax Check Mode switch 
on in the HCOMPMOD Control Field, on call 
from most compiler programs and subrou- 
tines. The error pattern is described in 
Chapter 9. There are five entry points, 
depending on the length of source text to 
be included in the ultimate diagnostic 
message. 



Conversion Integer-Re al (TRINRE) 



Generates code to call the Fixed Storage 
Area routine CNVIRD (which converts an 
integer operand to real form in floating 
point register 0) and modifies the stack 
operand to represent a real operand con- 
tained in FPRO. Called by CP20, CP47, 
CP61, CP69 and CP79. 



Conversion Real-Integer (TRREIN) 



Initialization 

321^fe2^Nsxt_0j9eratgr__£SN0T)_ 
Compare^ (COMP). 



Generates code to call the Fixed Storage 
Area routine CNVRDI (which converts a real 
operand to integer form in fixed point 
register STH) . Called by CP20,, CP3 6, CP38, 4 
and CP51,. % 
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Generate Object Code (GENERATE) 



Constructs rxr aril RLD records of object 
module instructions specified by the call- 
ing compiler program, and outputs the 
records on the SUSLIK and/or S£SPUNCH data 
sets, lepending on the options (LOAD and/or 
DECK) specified. The calling sequence in 
the calling compiler program is of the form 

BhL INFORM, GENTXT4(0,SBR) 
<4-byte object instruction> 

where INFORM (register 2) loads the address 
of the object instruction to be generated. 

There are seven entry points (GENTXT2, 
GESTXT4, GENTXT6, GENTXTS, GENTXTP2, 
GENTXTP4, and GENRLD) , each entry point 
corresponding to a particular instruction 
length. GENrxrP2 and GENTXTP4 are used for 
floating point instructions. GENTXTS is 
used for object code sequences of varying 
length. The call to GENTXTS is of the form 



<Label 



of instruction 



LA INFORM, 

sequence> 

BkL LENGTH, GENTXTS (0 , SBR) 

DC H 'Length of instruction sequence" 

The GENERATE subroutine is also included 
in the Scan I/II and Scan III Phases (IEX11 
and IEX30) . 



5 1 ore Ob j ect_Tioae_Register s ( CLEARRG) 



Formal parameter 
array called by 
value 



Para meter less 
procedure 



Storage Area field speci- 
fied in the stack 
operand) . 

Load ADR with address of 
array (contained in 
formal parameter's Data 
Storage Area field speci- 
fied in the stack 
operand) . Load GDSA with 
Data Storage Area base 
address. 

Store occupied registers. 
Call procedure (see Fig- 
ure 63). 



Mo code is generated if the operand is 
not a formal parameter or a parameterless 
procedure. 

OPDREC is called by CP12, CP20 # CP30 t 

CP36, CP38, CP40, CP41, CP45, CP47, CP49, 

CP51, CP57, CP59, CP61, CP62, CP69 f CP76 f 
CP77, CP78, CP79 / and CP87. 



Update PSA Po inte r (MAXCH) 



Records the current value of the dis- 
placement pointer P (register 8) in the 
Program Block Table III entry (Figure 60) 
corresponding to the Program Block Number 
of the current block or procedure, if the 
value of P exceeds the displacement record- 
ed. This records the size required, up to 
the particular point, for the block 1 s or 
procedure's object-time Data Storage Area.. 



Generates code (by calling R0UTIN13 and 
RDUTINIE9) to store fixed point and floating 
point registers currently in use in the 
object nodule, and updates the object time 
register control fields (Figures 56 and 
57). Called by CPO , CP1, CP8, CP3U,, CP38, 
CP40, CP57, CP61, CP64, and CP80. 



Operand Recognizer (OPDREC) 



Semicol on Handli ng (SCHDL) 



Updates the semicolon count (by storing 
at SCSC the semicolon number following a 
Semicolon or Delt a operator) and, if the 
TEST option is ^specif ied, generates a 
branch to the Fixed Storage Area TRACE 
routine (chapter 10). Called by CP23, 
CP2U, CP25, CP28, CP54, and CP59 on detec- 
tion of the Semicolon or Delta operator. 



Inspects the stack operand addressed by 
OPDK (register 3) to determine if the 
operand represents a formal parameter or a 
parameterless procedure and generates code 
as follows: 



3p3raod 

Formal parameter 
called by name 



Formal parameter 
label called by 
value 



Code generated 

Store occupied registers. 
Branch to actual paramet- 
er code sequence (see 
Figure 635 . 
Load ADR with label 
address (contained in 
fornal parameter's Data 



RO0TINE1 



Inspects a non- address operand in the 
Stack and stores the operand's base reg- 
ister number (6 or 7) and displacement at 
VPLkCE and WPLACE, respectively. Generates 
a load instruction to load GDSA (register 
6) with the appropriate Data Storage Area 
base address if the operand's storage field 
is contained in a Data Storage Area other 
than that currently addressed by CDSA or 
GDSA. Called by most compiler programs 
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preparatory to editing an object code 
instruction. 



ates a store instruction if the register is 
in use. 



R0UHNE2 



Generates code to load an address oper- 
and into a floating-point register. 
Adjusts the stack operand and the object- 
time register control fields (Figure 57) . 
Called by CP63, CP69, and CP87. 



RO0TINE8 



Releases the last reserved general pur- 
pose register as well as the related Data 
Storage Area field. 



RDuTISE3 



Inspects an address operand in the Stack 
and stores the operand's register number 
(9- ADR) and displacement (0) at VPLACE and 
tfPLACE, respectively. Generates a load 
instruction, if the address is not in ADR, 
and updates the object-time register 
control field (Figure 56). Called by a 
large number of compiler programs. 



R00TINE9 



Generates code to store a general pur- 
pose register and adjusts the stack oper- 
and. 



RDUTISE4 



ROOT INI 



Generates code to load a non-address 
operand into a floating-point register. 
Adjusts the stack operand and the object- 
time register control fields (Figure 57). 
Called by CP63, CP69, and CP87. 



Generates code to store the contents of 
ADR and adjusts the stack operand. Called 
by CP69 and CP87. 



RDUTIN11 



R0UTISE5 



Generates code to load a non-address 
operand into a general purpose register. 
Adjusts the stack operand and the object- 
time register control fields (Figure 56). 
Called by CP63, CP69, and CP87. 



Reserves a floating-point register and 
calls R0UTIN13, which generates a store 
instruction if the register is in use. 
Reserves a storage field for the register 
and updates the object-time register con- 
trol fields (Figure 57). 



ROUTINES 



RO0TIN12 



Generates code to load an address 
operanl into a general purpose register. 
Adjusts the stack operand and updates the 
object-time register control fields (Figure 
56). Called by CP63, CP69, and CP87. 



Releases the last reserved floating- 
point register and the related Data Storage 
Area field. 



R0UTINE7 



RO0TIN13 



Reserves an object-time general purpose 
register and calls R0UTINE9, which gener- 



Generates code to store a floating-point 
register and adjusts the stack operand. 
Called by CP6 9. 
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RO0TIN14 



Generates code to store Floating Point 
Register anal adjusts the stack operand. 
Called by CP61, CP69, and CP87. 



RDUTIS15 



Inspects the stack operand and stores 
the operand's base register (CDSA-6 or 
3DSA-7) and displacement at VPLACE and 
tfPLACE, respectively. Called by several 
compiler programs preparatory to editing an 
object code instruction. 



Program Block Number Handlin g, ( PBNHDL), 



Called at entry to or exit from a block 
or procedure. Stores the current Data 
Storage Area displacement value in register 
P in the Program Block Table III entry of 
the block exited and re-loads P with the 
displacement contained in the entry for the 
entered block. Called by CPO, CP4, and 
CP16. 



Parameterless Procedure Statement (PLPRSD 



Inspects the stack operand to determine 
if the operand is a parameterless 
procedure, and if so, generates a call to 
the procedure (see Figure 63). In any 
other case, error no. 183 or 187 is record- 
ed. 



TER.VIISATIDN PHASE (IEX51) 



The Termination Phase represents a logi- 
cal extension of the Compilation Phase but 
constitutes a seperate load module (IeX51) 
which is loaded and executed (by XCTL in 
IEX50) in succession to the Compilation 
Phase. 

The main functions of the Termination 
Phase are: 



To generate ESD records for all 
Library procedures called in the 
source module. 

To generate RLD records and an ESD 
record for the Address Table, contain- 
ing the relative addresses of the 
object time Program Block, and Label 
Address Tables and of the entry point 
of the object module. 

To print a statement of object time 
storage requirements (unless an error 
has been recorded) . 



To print diagnostic messages 
record errors, if any. 



for the 



7. To return control to the Final Exit 
Routine in the Directory. 

The foregoing functions are discussed 
below under appropriate headings, in the 
approximate order in which the functions 
are performed in the Termination Phase. 



Program B lock Table IV (PBTABU) 



Program Block Table IV (PBTAB4) is con- 
structed from Program Block Table III 
(PBTAB3) , transmitted from the Compilation 
Phase via the Common Work Area. PBTAB3 is 
described in this chapter under "Phase 
Initialization" (see also Figure 60). 

The Termination Phase constructs PBTAB4 
by copying each four- byte entry of PBTAB3 
into a new eight-byte entry, the first four 
bytes of which are reserved for the object 
time address of each block* s or procedure's 
Data Storage Area, or for the entry point 
of a code procedure. The content of the 
PBTAB4 entry is identical with that of the 
object time Program Block Table (PBT) (see 
chapter 11 and Figures 84 and 83) except 
for the first four bytes, which are filled 
in at object time only. 

After construction of PBTAB4, TXT 
records of the table are generated. In 
addition, RLD records are generated for the 
address of Constant Pool No. in the 
first entry (and for any other Constant 
Pool(s) in the last entries) of PBTAB3. 



1. To construct Program Block Table IV 
(PBT ABU) and the Data Set Table 
(DSTAB). 

2. To generate TXT and RLD records of the 
object Label Address Table (LAT), Pro- 
gram Block Table (PBT) , and Data Set 
Table (DSTAB) . 



Label Address Table (LAT) 



The compile time Label Address Table 
(LAT), first constructed at initialization 
of the Compilation Phase, is transmitted to 
the Termination Phase in main storage. The 
table is described elsewhere in this chap- 
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ter (382 "Phase Initialization ,, and Figure 
59). 



the entry after the Data Set Table has been 
constructed in the . Termination Phase. 



The Termination Phase generates TXT and 
RLD records of the Label Address Table. By 
virtue of the RLD records generated, the 
relative addresses of declared labels, 
switches, and procedures, as well as 
Compiler-generated branch addresses, are 
translated to absolute addresses in the 
object tine Label Address Table (see "Label 
Address Table" in Chapter 11 and Figures 85 
and 83) . 

For each of the standard I/O procedures 
and mathematical functions called in the 
source module, an E3D record is generated. 
The standard I/O procedures and mathemati- 
cal functions called in the source module 
are identified by a in bit of the first 
2 8 full-words of the Label Address Table 
(for any standard procedure not called, bit 
in the corresponding full-word is equal 
to 1) . The E3D record generated contains 
the name of the ALGOL Library module,, 
obtained from a corresponding entry in one 
Df two tables (SHRTAB or LNGTAB) , depending 
on the precision specified. The address of 
the standard procedure in the object module 
is stored by the control program in the 
corresponding full-word of the object time 
Label Address Table. Appendix III lists 
the internal names of all standard proce- 
dures, in which the displacement of the 
corresponding Label Address Table entry is 
specified. 



Data Set Table (DSTAB) 



The object time Data Set Table, con- 
structed in the Ternination Phase, is des- 
cribed in Chapter 11 (see also Figures 86 
and 83) . 

The Termination Phase constructs a 
36-byte entry for data sets Nos. and 1 
and for every other data set for which an 
object time input, output and/or SYSACT 
operation is specified in the I/O Table 
(Figure 64). A 28-byte entry (called the 
PUT/GET Control Field) is also constructed 
at the end of the table, if a PUT or GET 
operation is specified for any of the data 
sets. The first full word (APGCF) in the 
Data Set Table contains the address of the 
PUT/GET Control Field or, if the latter is 
not present, the address of the first byte 
following the end of the table (in the 
latter case, bit in the first byte of 
APGCF is set=l) . 

The symbolic names and function of the 
various fields in the data set entry are 
indicated in Figure 86. The following list 
shows the initial contents of each field in 



Data Set Entry (36 bytes) 



Field Name 


Bytes 


Initial Settinq 


ADCB 


0-3 





R 


4-7 





RE 


8-11 





NBB 


12-15 





BB 


16-19 





S 


20-21 


1 


P 


22-23 


80 


K 


24 


2 


Q 


25 





DSF 


26-27 


(see below) 


NOTEADR 


28-31 





BL 


32-33 





DSF 


34-35 


( copy of bytes 
26-27 — see 
below) 



The settings of the 2-byte DSF field 
depend on the data specified for the data 
set in the I/O Table (IOTAB — Figure 64), 
as follows: 



IOTAB specifies : 
~^No output, SYSACT 4/13 

or S£3ACT - undetermined 
Output, but no input, 

S£SACT 4/13 or 

SYSACT - undetermined 
SYSACT 4/13 or SYSACT. 

undetermined,, but 

no output 
Input and Output or SYSACT 

4/13 or SYSACT - 

undetermined and Output 



DSF Settinq 
X'0000' 

X'2000' 



X'4000" 



X' 4200' 



The symbolic names and function of the 
various fields in the PUT/GET Control Field 
are indicated in Figure 86. The following 
list shows the initial contents of each 
field in the PUT/GET Control Field as 
inserted by the Termination Phase. 

PCJT/GET. Contr ol Field (28 bytes) 



Field 


Name 


Bytes 


Initial Setting 


ADCB 




0-3 





R 




4-7 





RE 




8-11 





BB 




12-15 





BE 




16-19 


2048 


NOTEADR 


20-23 





S 




24-25 





TYP 




26 





PG 




27 






After construction of the Data Set 
Table, TY.T records of the table are 
generated. The position of the Data Set 
Table in the object module is indicated in 
Figure 83. 
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Address Table and END Record 

The Termination Phase constructs an 
address table containing the following 
relative address constants : 

Address of Program Block Table (PBT) 

Address of Label Address Table (LAT) 



unless a compile time error was detected in 
IEX40, IEX50 r or IEX51. The printed state- 
ment, discussed in the ALGOL Programmers 
Guide, indicates the length cf the generat- 
ed instructions, the Constant Pool(s) and 
the Data Storage Area reguired by each 
block and procedure (obtained from PBTAB4) . 



Address of first instruction in the 
generated object module (following 
the end of Constant Pool 0) 

The relative addresses are obtained from 
the object module displacement (length) 
pointer (PRPOINT) , augmented, where 
appropriate, by the length of the preceding 
table (see Figure 83) • An ESD record for 
the Address Table, and RLD records for the 
three address constants, are generated. 

The relative address of the entry point 
(IHIFSAIN) in the combined object module 
(the Fixed Storage Area Initialization 
routine) is recorded in the END record and 
in an ESD record. The relative address is 
obtained by adding a known displacement tc 
the object module displacement pointer. 



Diagnostic Output 



Diagnostic messages reflecting the 

errors, if any, recorded in IEX40, IEX50, 

or IEX51 are printed out by the Error 

Message Editing Routine (see Chapter 9) . 



End cf Compilation 



At the close of compilation, the Coirircn 
Area of main storage is released and con- 
trol is passed (by a RETURN macro) to the 
Final Exit Routine in the Directory 
(Chapter 2) . 



Stateme nt of Object Time Storage 
Requirements 



A statement is printed of the irain 
storage required by the object module. 
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CHAPTER 9: COMPILE TIME ERROR DETECTION AND DIAGNOSTIC OUTPUT 



ERROR DETECTION 



The Compiler detects syntactical or log- 
ical errors in the source module as well as 
procedural errors involving Compiler 
options and DD statements. In addition, 
the Compiler may be terminated as a result 
of program interrupts, unrecoverable I/O 
errors, and unopened data sets. 

kn error is recorded by the operative 
phase in the form of an error pattern, 
stored in the Error Pool. The recorded 
error patterns are processed and diagnostic 
messages printed out by the Error Message 
Editing routine in each of Load Modules 
IEX21, IEX31, and IEX51. (See "Diagnostic 
Output"). 

Every error detected by the Compiler (or 
occurring during compilation) is identified 
with one of three degrees of severity. 
According to the severity of each detected 
error, the Compiler may: 

1. Continue normal processing and compi- 
lation; 

2. Terminate object code generation, but 
continue to scan the source module for 
other errors; or 

3. Terminate all processing immediately 
after diagnostic messages have been 
printed out for errors recorded in the 
Error Pool. 

The degree of severity of each detected 
error is indicated by the severity code (W, 
3, or D in the printed diagnostic message. 

The diagnostic messages printed out for 
all detected errors are listed in OS ALGOL 
Programmer f s Guide . Appendix F in this manual 
lists the errors detected in each of the 
several phases. 



tf^RNIN3 ERRORS (SEVERITY CODE tf) 



and compilation action of the Compiler, 
unless a serious or terminating error is 
subsequently detected. The detection of 
warning errors is confined to the Initiali- 
zation, Scan I/II,, and Scan III Pases. 



SERIOUS ERRORS (SEVERITY CODE S) 



A serious error (Code S) represents a 
serious logical or syntactical defect in 
the source module, that cannot be disre- 
garded or corrected by the Compiler with- 
out, in most cases, making an arbitrary 
assumption concerning the logic of the 
source module. When a serious error is 
detected,, the Compiler enters Syntax Check 
Mode. In this mode of operation,, all 
object code generation is terminated, but 
the search continues, until a terminating 
error occurs, for other possible defects in 
the source module. Entry to Syntax Check 
Mode is specified by the CMT switch in the 
HCOMPMOD Control Field (Appendix IV) . 

Entry to Syntax Check Mode has the 
following effects in the several phases. 



Scan I/II Phase (IEX 11) : Processing is 

unaffected, except that,, where a formal 
parameter is unspecified (a serious error) , 
the parameter is assigned an all-purpose 
internal name in the Identifier Table, so 
as to enable syntax checking functions to 
proceed in the later phases. 



Identifier 



Table 



Manipulation 



Phase 



(IEK20) : Processing is in no way affected. 



Scan III Phase (IEX30) 



All processing 
involving the subscript Table is terminated 
and the storage of constants in the Con- 
stant Pool is inhibited, but the search for 
faults and errors in the source module 
continues. Undefined identifiers and 
defective constants are replaced,, in the 
Modification Level 2 text, by all-purpose 
internal names. 



h warning error (code /7) constitutes a 
(normally) minor syntactical defect or pro- 
cedural error. Where an error of this kind 
is detected, the Compiler takes action to 
disregard, correct, or otherwise compensate 
for the error. Except for such corrective 
action, tile detection of a warning error 
has no effect on the subsequent processing 



Subscript Handling Phase (IEX40) : Al 1 

processing is inhibited, and control is 
passed directly to the Compilation Phase. 

Compilation Phase (IEX50) : The generation 
of object code is terminated. The stacking 
and inspection of operators and operands 
continues, however, to permit the detection 
of further syntactical or logical errors. 
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Termination Phase (IEX51) : Processing is 
limited to the construction of the Data Set 
Table. All generation of TXT and RLD 
records for object time tables is inhibit- 
ed. 



cf the three load modules IEX21, IEX31 f and 
IEX51. Figure 74 indicates the composition 
and execution sequence cf Lead Modules 
IEX21, IEX31, and IEX51. 



TERMINATING ERRORS (SEVERITY CODE T) 



Terminating errors include (a) logical 
or syntactical defects in the source 
module, whose presence severely prejudices 
the subsequent interpretation of the logic 
of the source module; (b) logical errors in 
the Compiler; (c) mechanical or logical 
defects involving data sets; (d) errors 
identified with the exhaustion of work 
areas owing to the length or complexity of 
the source text; and (e) errors arising 
from the defective invokation of the Com- 
piler. 

When a terminating error is detected (or 
occurs) , all processing and/or compilation 
is immediately suspended and the Compiler 
is terminated after the recorded error (s) 
have been processed; more specif ically, on 
detection of a terminating error, the oper- 
ative phase stores an appropriate error 
pattern in the Error Pool and then passes 
control (by XCTL) to the next successive 
Diagnostic Output Module ( IEX21, IEX31 f or 
IEX51) . The latter prints out diagnostic 
messages for the error (s) recorded in the 
Error Pool, and exits to the terminating 
routine in the Termination Phase. The 
detection of a terminating error is reg- 
istered in the operative phase by means of 
the TERR switch in the HCOMPMOD Control 
Field. 



DIAGNOSTIC OUTPUT 



The Error Message Editing routine edits 
the error patterns stored by the several 
phases in the Error Pool, and prints out 
diagnostic messages on the SYS PRINT data 
set by calling the PRINT subroutine in the 
Directory. 

The routine is normally executed at 
three points in the course of compilation: 

1. After execution of the Identifier 
Table Manipulation phase 

2 . After execution of the Scan III phase 

3. After execution of the Compilation 
phase. 

The Error Message Editing routine con- 
stitutes a control section, named IEX60000, 



In addition to the Error Message Editing 
routine, each module contains a control 
section comprising a Message Pcol. The 
Message Pool in each load module contains 
an entry for each type of error that may be 
edited in the particular editing phase. 
The entries govern the composition of the 
messages printed out. 



The Error Pool containing recorded error 
patterns is transmitted between phases in 
irain storage. 



When all error patterns have been pro- 
cessed, the Error Message Editing routine 
transfers control to the next phase in 
sequence, unless a terminating error is 
identified (indicated by the TERR switch in 
the HCOMPMOD Control Field) . In the latter 
case, control is passed directly to the 
terminating routine in the Termination 
Phase (IEX51). 
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or //EXEC 
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1 XCTL 
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1 XCTL 
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J XCTL 
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IEX21M00 




Message Pool 




IEX60000 


Error Message 
Editing Routine 
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IEX30 
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I XCTL 








IEX31 \ 


IEX31M00 
IEX60000 
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Error Message 
Editing Routine 






\ XCTL 










IEX40 




Subscript Handling 
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(and Compilation 

Phase initialization) 






\ XCTL 










IEX50 




Compilation Phase 






l, XCTL 








IEX51 
RETURN 




IEX51000 
IEX51M00 
IEX60000 




Object time table 
output 

Message Pool 








Error Message 
Editing Program 




IEX51002 


Termination Routine 



Figure 74. Composition and execution 
sequence of Load Modules IEX21, 
IEX31, and IEX51 /f containing 
the Error Message Editing Rou- 
tine (IEX60000) 
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ERROR POOL 



The Error Pool is an area of main 
storage acquired by the Initialization 
Phase (IEX10), and used by all phases in 
common for the storage of error patterns. 

12 4 

r T T T 1 

| <Length>| <Error | <Semicolon| <Source Text> | 
| | No. > J Count> | (variable) | 
i j ± l J 



Figure 75. 



Error 
Pool 



pattern stored in Error 



The length of the error pattern is 
variable but is in no case less than four 
bytes. The error number identifies the 
error detected. 

The semicolon count represents the num- 
ber of the semicolon preceding the state- 
ment in which the error was detected , 
counted from the first semicolon in the 
source module. The error pattern may or 
may not contain characters found in the 
source module. If it does, the source text 
may consist of a maximum of six characters 
of an erroneous identifier or an erroneous 
delimiter, a maximum of twelve digits of a 
constant, one or two delimiters, or a 
maximum of 16 EBCDIC characters. In all 
cases except the last, the source text 
stored in the error pattern is in the form 
of the internal code (Appendices I-b and 
I-c); valid delimiters are represented by 
single one-byte symbols. When the error 
message is edited and printed out, the 
source text (if any) is translated back to 
the external code, delimiters being rep- 
resented by one or more characters accord- 
ing to their original representation in the 
source module. 



MESSAGE POOL 



The Message Pool contains a set of 
variable length entries, which govern the 
editing of each message printed out by the 
Error Message Editing routine. 

The Message Pool forms a control section 
of the three load modules containing the 



Error Message Editing rcutine. In the 
normal chronological order in which the 
three modules are loaded, the control sec- 
tions containing the Message Pool are 
IEX21M00, IEX31M00, and IEX51M00. The 
entries in the Message Pool vary between 
control sections. 

Figure 76 indicates the content of the 
entries in the Message Pool. 

The length of the Message Pool entry is 
variable, depending on the number of Inser- 
tion Codes contained in the entry and en 
the message text. The entry may contain no 
Insertion Code, or it may contain one or 
more Insertion Codes up to a maximum of 
five. The actual number of Insertion Cedes 
in the entry is specified in the second 
byte of the entry. The Insertion Codes, 
each of which occupy three bytes, are 
described below. 

The severity code (W, S, or T) specifies 
the seriousness of the particular errcr. 
See "Error Detection". 

The last bytes in the Message Pool entry 
contain the text of the message that is 
printed out for the particular error 
detected in the source module. The message 
is stored in EBCDIC characters. Where an 
error pattern contains source text, the 
source text is inserted in the appropriate 
place (s) in the printed message. The 
insertion of source text is controlled by 
the Insertion Codes in the Message Pool 
entry. 

Figure 77 indicates the composition of 
the Insertion Code in the Message Pool 
entry. 

12 3 

r t t t 1 

1 Action I Source text | Length | Message text | 
| Code j displacement | of mess- | displacement | 
II I age text| | 

L 1, J. L J 

Figure 77. Three-byte Insertion Code in 
the Message Pool entry (see 
Figure 76) 

The Action Code in the first four bits 
specifies one of five alternative routines 
which handle the transfer (and, where 
required, translation) of message or source 
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| <Length>| <Insertion |<Insertion |<Inserticn | 

| | Code | Code> | Code> I 

| | Count> | (see | | 

| | | Figure 77) | \ 

L J. ± X . JL- 



N 

"T T 

|<Severity | 
I Code> I 



N+l 



<Message Text> | 
| (variable length) j 
| (N=2 if no Insertion Code | 
| in entry) | 



Figure 76. Message Pool entry 
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text to a work area where the error message 
is assembled before being output on the 
SYSPRINT data set. There are five Action 
Codes: 

Action Code 

1111 New Line (COT37) 

The work area pointer (named WPT 
AREA) is shifted to the first posi- 
tion in the work area field that 
represents a new print line. 

1000 Move Source Text (COT07) 

The source text is transferred from 
the error pattern (in the Error 
Pool) to the next free byte in the 
work area, specified by the work 
area pointer. The location of the 
source text in the error pattern is 
specified by the displacement data 
contained in the second four bits 
of the Insertion Code (in this 
case, the displacement is invaria- 
bly four bytes - - see Figure 74) . 
The length of the source text is 
computed from the length indicator 
in the error pattern, minus four. 
Action Code 1000 is used mainly in 
connection with errors involving 
parameter options. When such an 
error is detected, the parameter 
name (e.g. DDname ) is stored in 
the error pattern in lieu of source 
text. Since the parameter name is 
never translated to internal code, 
the transfer of the source text to 
the work area calls for no transla- 
tion. 

0100 Move ALGOL Delimiter (CCT10) 

The one-byte ALGOL symbol in the 
error pattern source text field is 
converted to its external word form 
representation and transferred to 
the next free byte in the Work 
Area, specified by the Work Area 
pointer. The location of the one- 
byte symbol in the error pattern is 
specified by the displacement data 
in the second four bits of the 
Insertion Code. The displacement 
of the -symbol in the error pattern 
may be four or five bytes. In some 
cases, the source text may consist 
of a single one- byte ALGOL symbol, 
and accordingly, the displacement 
will be four bytes. In other 
cases, the text may consist of two 
delimiter words (represented by twc 
one- byte symbols in the error 
pattern) which are to be inserted 
in different positions in the 
output message. In the latter 
case, the transfer of the delimiter 



words to their appropriate loca- 
tions in the work area is governed 
by two separate Insertion Cedes 
(separated by one or more others) , 
botL specifying the 0100 Action 
Code. In the first Insertion Cede, 
the displacement of the first sym- 
bol in the error pattern will be 
specified as four bytes, while in 
the second, the displacement of the 
second symbol in the error pattern 
will be specified as five bytes. 



Translation of a cne-byte ALGOL 
symbol to its external representa- 
tion is accomplished with the aid 
of two tables, named WSYMBSTK and 
WORDSEBC (or WSYMBSRC and WORD SI SO, 
if the external character set spec- 
ified is ISO). The tables named 
WSYMBSTK and WSYMBSRC contain a 
list of all one- byte internal sym- 
bols of ALGOL delimiters, together 
with the displacement addresses of 
corresponding entries in the WORD- 
SEBC (or WORDSISO) table. The 
WORDSEBC and WORDSISO tables both 
contain a list cf the external 
representations of ALGOL delimi- 
ters, and the character code in 
both tables is the EBCDIC code. 
The tables differ only to the 
extent that certain delimiters are 
represented in one table by symbols 
and in the other by whole words. 
Thus, for example, the relational 
operators < and > are represented 
in the WORDSEBC table as < and > 
while in the WORDSISO table they 
are represented as 'LESS' and 
'GREATER'. The translation cf a 
given internal symbol is obtained 
by first finding the entry in the 
WSYMBSTK (or WSYMBSRC) table con- 
taining the identical symbol and 
then taking the external transla- 
tion from the entry in the WORDSEBC 
or WORDSISO table, specified by the 
indicated displacement address in 
the entry. The particular table 
used is governed by the SET6 
switch in the HCOMPMOD Control 
Field. 



0010 Move and Translate Source 
(COT33) 



Text 



The source text (displacement: four 
bytes in error pattern; length: 
length - 4) is transferred to the 
next free byte in the work area 
specified by the work area pointer, 
and translated to EBCDIC represen- 
tation. The translation is accom- 
plished by means of a TRANSLATE 
instruction, specifying the trans- 
lation table named WINTEBC. 
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Figure 78, Format of the printed error message 



0000 Move Partial Message Text (COT30) 



A segment of the message text in 
the Message Pool entry, specified 
by the length and displacement data 
in the second and third bytes of 
the Insertion Code, is transferred 
to the work area. 



As indicated above, the Message Pool 
entries may contain up to a maximum of five 
Insertion Codes or they may contain no 
Insertion Code at all. If the error ires- 
sage to be printed out occupies more than 
one printed line, or if the error message 
includes message text as well as source 
text, the assembly of the message in the 
work area consists of several individual 
transfers or editing actions, specified by 
a corresponding number of Insertion Codes 
in the Message Pool entry. The Insertion 
Codes are preset with the correct text 
lengths and displacements, to insure that 
the text is divided at the appropriate 
places where source text is to be inserted, 
or where a new line is to be started. 

If, however, the error message consists 
entirely of message text occupying not more 
than a single line, the assembly of an 
error message involves only a single trans- 
fer operation. In this case, the Message 
Pool entry contains no Insertion Code, and 
the Message Pool entry in effect specifies 
a sixth editing action, handled by the Move 
Full Message Text routine (COT31). This 
routine transfers the entire message text, 
consisting of no more than a full line, 
from the Message Pool entry, to the work 
area. Since the entry contains no Inser- 
tion Code, the displacement of the text in 
the entry is invariably three bytes, and 
the text length is given by the entry 
length, less three (see Figure 76). 



ERROR MESSAGE 



The format of the printed error message 
is indicated in Figure 78^ 

The significance of the various symbols in 
the figure is as follows: 



IEX 



Message No. 



bb 
S 



Semicolon 
Count 



(The name cf the ALGOL 
Compiler) identifies the 
program generating the mes- 
sage. 

The number of the error 
detected. 

Signifies that the message 
is informative only and 
requires no response on the 
part of the operator. 

Indicates blank space. 



The Severity Cede,, 
may be W lf S if or T. 



which 



Text 



The number of the semicclcn 
preceding the statement or 
declaration in which the 
error was detected. 

The message text (and 
source text, if any), des- 
cribing the error detected. 



A list of the cumpile time error messa- 
ges generated by the Compiler is provided 
in OS ALGOL Programmer ' s Guide . Appendix F 
in this manual lists the errors detected in 
each of the several phases. 



LOGIC OF THE ERROR MESSAGE EDITING ROUTINE 



The logical flow of the Error Message 
Editing routine is outlined in Flowcharts 
040-043 in the Flowchart Section. 

Error patterns are processed in 
sequence. With the aid of the error number 
in the second byte of the error pattern and 
an address table,, the corresponding Message 
Pool entry is found. 

A test is made of the Insertion Cede 
Count (COT31) in the Message Pool entry 
(Byte 1) . If the count is zero (indicating 
that the entry contains no Insertion 
Codes) , the Move Full Message Text routine 
is activated. If the Insertion Code count 
is not zero, the count is leaded into a 
register, and the Action Code in the first 
Insertion Code is tested. The appropriate 
routine corresponding to the Action Code 
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(COT06) is then activated. After execution 



of the routine, the 
decreased by 1, and 
nonzero, the next 
Message Pool entry 
routine specified 
activated. This 
until the Insertion 
reduced to zero. 



Insertion Code count is 
if the count is still 

Insertion Code in the 
is inspected and the 
by the Action Code is 
procedure is repeated 

Code count has been 



When the diagnostic message has been 
completely assembled in the Work Area, the 
entire message is processed by a TRANSLATE 
instruction, using a translation table 
named WEBCDIC. This translation operation 
is designed to enable the user to make 
desired character substitutions, that is, 
to replace certain characters in the stand- 
ard EBCDIC character set by alternative 
optional characters. Until changed by the 



user, the translation table reflects the 
standard EBCDIC code, and the translation 
is equivalent to a straight EECDIC tc 
EBCDIC translation, having no effect on the 
diagnostic message. 

The message is printed cut en SYSPRINT 
by call to the PRINT subroutine in the 
Directory. Before PRINT is called, a test 
is made of the PRT switch in the HCOMPMOD 
Control Field to determine if the printer 
is operative. If the printer -is net opera- 
tive, diagnostic message No. 210 is print- 
ed out on the console typewriter, and 
control is passed to the Compiler termina- 
tion routine (IEX51002) . In the event a 
program interrupt occurs during execution 
of control section IEX60000, diagnostic 
message no. 211 is printed cut and the 
Compiler is terminated. 
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CHAPTER 10: ALGOL LIBRARY 



The ALGOL Library is a partitioned data 
set named SYSI.ALgLIB. The Library con- 
sists of the following principal compo- 
nents. 

1. The Fixed Storage Area, containing 
administrative routines and a pre- 
assembled work area required by the 
object module. 

2. I/O procedures 

3. Mathematical standard functions 

The Fixed Storage Area and those I/O 
procedures and standard functions which are 
called in the source module, are linked to 
the object module by the Linkage Editor to 
form an executable load module. 

This chapter also describes the Object 
Time Error routine, which is not part of 
the ALGOL Library, but forms a module of 
the SYS1.LINKLIB data set. The Error 
routine, whose function is to record object 
time errors, is loaded only if and when an 
error is detected during execution of the 
object program. 



FIXED STORAGE AREA (IHIFSA) 



The Fixed Storage Area is a single 
module (IHIFSA) containing housekeeping 
routines, a Common Data Area, and routines 
for conversion between real and integer 
representation. The housekeeping routines 
perform the functions of initialization and 
termini nation, acquiring and releasing Data 
Storage Areas at entry to, and exit from, 
blocks and procedures, and branching 
between segments of generated code when 
procedures and actual parameters are 
called. The Common Data Area contains 
address constants and working tables ref- 
erenced by the object module. 



COMMON DATA AREA 



The principal fields used by the object 
module in the Common Data Area are: 

1. Two register save areas of 72 bytes 
each. 

2. Address constants, including: 
Pointers to the top and bottom of the 



Return Address Stack (RAS) and to 
the last entries in the upper and 
lower sections of the Stack 
The address of the Data Set Table 

(DSTAB) 
The address of the Note Table (NOTTAB) 
The address of a locaticn (FCTVAIST) 
where values of user- defined type 
procedures are stored. 



The Return Address Stack, Data Set 
Table, and Note Table are described in 
Chapter 11. 

3. Counters, switches and storage loca- 
tions, including: 

Program Block Number Counter 
(PROLPBN) . 

Semicolon Counter (SCRCS) 

Option switches (OPTSW)-see Chapter 
11. 

Storage location for values of user- 
defined type procedures 
(FCTVAIST) . 

Program Block Numfcer Counter 
(PROLPBN) . 

4. Branch Instruction Table. The tafcle 
consists of a set of branch 
instructions to routines in the Fixed 
Storage Area. The table is designed 
to permit deletions or changes in the 
Fixed Storage Area, without necessi- 
tating a multiplicity of ccrrecticns 
to addresses in the object code. The 
relevant branch instruction in the 
table is executed whenever a call is 
made to a Fixed Storage Area routine. 



FIXED STORAGE AREA ROUTINES 



The administrative routines cf the Fixed 
Storage Area are listed and described 
below. 

In the object module, the call to a 
Fixed Storage Area routine usually has the 
following form: 

BAL REG,<DISPLXFSA) 

where REG represents register 8 (ADR) or 
register 15 (BRR) , and DISPL is the dis- 
placement of the branch instruction in the 
Branch Instruction Table (see item 4 in the 
Common Data Area, afcove). 
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I ni ti a lization (ALGIN) 



ALGIN is the first routine to be entered 
at execution of the object module. ALGIN 
executes the SPIE macro instruction, speci- 
fying PIEROUT (see below) as the program 
interrupt exit; acquires main storage for f 
and initializes the Return Address Stack; 
sets the Option Switches (OPTSW) to reflect 
the options specified for the object 
module; and branches to the object module. 
The entry point to ALGIN is named IHIFSAIN. 
This is the location specified in the END 
card as the initial entry point of the 
object module. See Chapter 11. Error 
exits: 41, 4 2 



Pro logue (PROLOG) 



PROLOG is invoked when a new block is 
entered and when a procedure is called. In 
the case of a block, PROLOG acquires a Data 
Storage Area (Figure 88) for the new block, 
initializes the Data Storage Area, and 
stores the address of the Data Storage Area 
in the corresponding entry of the Program 
Block Table (Figure 84). The latter entry 
specifies the required size of the Data 
Storage Area. An entry containing the same 
Data Storage Area address is also made in 
the Return Address Stack (Figure 90) . 

In the case of a procedure call, PROLOG 
acquires a Data Storage Area for the proce- 
dure and, after testing for compatibility 
between formal and actual parameters, 
stores the addresses of the actual paramet- 
er code sequences and the actual parameter 
characteristics, in the storage fields of 
the formal parameters in the new Data 
Storage Area. See Figure 63. An entry is 
also made in the Return Address Stack,, 
containing the address of the acquired Data 
Storage Area and the return address, i.e. 
the address of the next instruction follow- 
ing the procedure call. 

In both cases PROLOG passes control tc 
the entered block or the called procedure. 
Base register CDSA addresses the new Data 
Storage Area. 
Error exits: 20, 21, 36. 



Epilogue (EPILOG) 



EPILOG is invoked at the close of every 
block or procedure. 

EPILOG releases the Data Storage Area 
(addressed by base register CDSA) of the 
exited block or procedure, and loads CDSA 



with the address of the Data Storage Area 
of the enclosing (or calling) block or 
procedure, contained in the second full 
word of the released Data Storage Area 
(Figure 86) . At the same time, the address 
of the dynamically preceding Data Storage 
Area (if any) of the exited block or 
procedure, contained in the first full word 
cf the released Data Storage Area, is 
stored in the corresponding entry of the 
Program Block Table, and the last entry of 
the Return Address Stack (Figure 90) is 
released. 



If any precompiled procedure was called 
in the exited block or procedure, the 
precompiled procedure, whose address will 
have been entered in the Return Address 
Stack by LOADPP, is deleted. Similarly, if 
main storage was acquired for any arrays 
declared in the exited block (or value- 
specified in the exited procedure) , the 
array storage area(s) and storage Mapping 
Function area(s), if any, are released. 
The presence of any declared or specified 
arrays is determined by inspection of bytes 
10 and 14 of the released Data Storage 
Area, while the address (es) of the array 
storage area (s) are obtained from the 
related Storage Mapping Function(s). See 
Chapter 11 and Figure 62. 

In the case of an exited block, EPILOG 
passes control to the next instruction 
following the end of the block. In the 
case of a procedure, control is passed tc 
the return address contained in the Return 
Address Stack. 



Call Actual Parameter, Part 1 (CAP1) 



CAP1 is invoked when a formal parameter 
called by value is encountered in a proce- 
dure heading, or when a formal parameter 
called by name is encountered in the body 
of a procedure. 

CAP1 makes an entry in the Return 
Address Stack (Figure 90), containing the 
address of the current Data Storage Area 
and the return address (i.e., the address 
of the next instruction fc Hewing the 
actual parameter call) ; stores the address 
of the dynamically preceding Data Storage 
Area (if any), contained in the first full 
word of the current Data Storage Area 
(Figure 88), in the corresponding program 
Block Table entry (Figure 84) ; loads CDSA 
with the address of the enclosing (or 
calling) block, contained in the second 
full word of the current Data Storage Area; 
and branches to the actual parameter code 
sequence. See Figure 63. 
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Where the actual parameter call is 
enclosed by one or more intermediate blocks 
inside the procedure, an additional entry 
is made in the Return Address Stack for 
every intermediate block, containing the 
address of the related Data Storage Area 
and a zero return address, and the Program 
Block Table is updated to show the address 
of the dynamically preceding Data Storage 
Area, if any, for every intermediate block. 
The number of entries made in the Return 
Address Stack is governed by a comparison 
between the Program Block Number of the 
procedure and the Program Block Number 
contained in the Data Storage Area(s) of 
each intermediate block (if any) enclosing 
the parameter call inside the procedure. 



Call Actual Parameter . Part 2 (CAP2) 



89) and returns control to the return 
address in the procedure heading (contained 
in register BRR) . Where necessary, the 
Fixed Storage Area conversion routines, 
CNVIRD or CNVRDI, may be called in order to 
convert the actual parameter to a real or 
integer value, according tc the type of the 
formal parameter. 



If the parameter is a value-specified 
array, the Fixed Storage Area routine 
GETMSTO is called, which allocates space 
for the array and its Storage Mapping 
Function. The Storage Mapping Function 
(Figure 62) is then copied from the blcck 
in which it is declared (and modified to 
indicate the new location) , and the array 
is transferred (and converted if necessary) 
to the new location. 



CAP2 is entered after the code sequence 
of an actual parameter has been executed as 
a result of an actual parameter call in a 
procedure. See Figure 63. 

CAP 2 loads base register CDS A with the 
address (contained in the last Return 
Address stack entry) of the Data storage 
Area of the procedure calling the actual 
parameter; stores CDSA in the related Pro- 
gram Block Table entry (Figure 84); releas- 
es the Return Address Stack entry (Figure 
90) ; and branches to the return address 
(the address of the instruction following 
the actual parameter call) indicated in the 
Return Address Stack. 

Where the actual parameter call is 
enclosed by one or more intermediate blocks 
inside the procedure, CAP 2 stores the Data 
Storage Area address listed in each of the 
corresponding Return Address Stack entries, 
in the related Program Block Table entries, 
and releases the entries. The number of 
entries released is governed by the return 
address in each entry. A non-zero return 
address identifies the last entry to be 
released. The latter entry corresponds tc 
the block or procedure immediately encom- 
passing the actual parameter call. 



Return Routine (RETPROG) 



RETPROG is invoked by the object module 
when a goto statement (which may lead out 
of the current block) is executed. RETPROG 
compares the address of the Data Storage 
Area of the target block (previously loaded 
in base register CDSA) with the Data Stor- 
age Area address contained in the last 
Return Address Stack entry (Figure 90) and, 
if they differ (indicating that the goto 
statement implies a branch out of the 
current block), calls the EPILOG routine, 
which releases the Data Storage Area 
addressed by the Return Address Stack 
entry, and then releases the entry. This 
procedure is repeated until the Return 
Address Stack entry is found which corres- 
ponds to the target block. At this point, 
RETPROG passes control to the branch 
address in the target block (previously 
leaded in ADR) . 



Call Switch Element, Part 1 (CSWE1) 



Value Call (VALUCALL) 



VALUCALL is invoked when a formal param- 
eter called by value is encountered in a 
procedure heading. Immediately before 
VALUCALL is entered, the actual parameter 
code sequence will have been executed, and 
the address of the actual parameter will 
have been loaded in register ADR. VALUCALL 
stores the actual parameters value in the 
formal parameter's storage field (Figure 



CSWEl is invoked by the object module 
when a switch designator is encountered. 
See Figure 61 . 

CSWEl (whose function is analogous to 
that of CAP1, see above) makes one or more 
entries in the Return Address Stack (Figure 
90), to reflect the intervening block 
structure between the switch designator and 
the switch declaration; updates the Program 
Block Table; and branches to the switch 
element in the switch declaration. 
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Call Switch Element, Part 2 (CSWE2) 



Get Main Storage (GETMSTO) 



CSWE2 is invoked by the object module 
after the code sequence representing a 
switch element in a switch declaration has 
been executed , in response to a switch 
designator. See Figure 61. 

CSWE2 (whose function is analogous to 
that of CAP 2, see above) releases one or 
more entries in the Return Address Stack? 
updates the Program Block Table; and 
returns control to the next instruction 
following the switch designator (whose 
address is specified in the Return Address 
Stack) . 



GETMSTO is invoked by VALUCALL or by the 
object module when space for an array is to 
be allocated. This routine gets the main 
storage required for the array. 
Error exit: 18 



Program Interrupt (PIEROUT) 



PIEROUT is invoked by the operating 
system when a program interrupt occurs in 
the object program. This routine handles 
the program status word, and then branches 
to the FSA error routine FSAERR. 
Error exits: 28,29,30,31,33 



Trace (TRACE) 



TRACE is invoked by the object module 
at the end of the code representing each 
source statement, provided the compile time 
TEST option is specified. TRACE copies the 
semicolon count (recorded in the object 
module following the call to TRACE) into the 
Fixed Storage Area field named SCRCS and 
(provided one of the execution time options 
TRACE, TRBEG, or TREND is specified) into 
the program trace list. If the trace list 
buffer is filled, the contents of the 
buffer are written on SYSUTl. 



FSAERR 



Invoked by the object program or other 
routines in the ALGOL library when an error 
occurs. This routine stores the number of 
the error in a storage area, FSAERCOD, 
before invoking the error routine, IIIIERR 
(in SYS1.LINKLIB) by means of a LINK macro. 
Error exit: None 



Termination (ALGTRMN) 



Load Precompiled Procedure (LOADPP) 



LOADPP is invoked by the object module 
when a precompiled procedure is declare^. 
This routine loads the precompiled proce- 
dure by issuing a LOAD macro, and returns 
to the instruction following the procedure 
declaration. The Program Block Table and 
Return Address Stack are updated to show 
the entry point and name of the precompiled 
procedure. 
Error exit: 36 



Standard Procedure Declaration (SPDECL) 



Invoked when the end of the program is 
reached , or by FSAERR. This routine prints 
out the program trace list, closes all data 
sets, and frees the Return Address Stack. 
It then restores registers and returns to 
the calling program. 
Error exit: None 



Integer to Real Conversion (CNVTED) 



Invoked by other routines in the ALGOL 
library and by the object program. This 
routine converts an integer number into a 
real number of either short or long preci- 
sion. 
Error exit: None 






SPDECL is invoked by the object module 
if the name of a standard I/O procedure or 
mathematical function is an actual paramet- 
er in another procedure. This routine 
constructs a parameter list for the 
parameter (s) to be operated on, and branch- 
es to the standard procedure or function 
called. The parameter list is constructed 
after executing the actual parameter code 
sequences. 



Real to Integer Conversion (CNVRDI/ENTIER) 



Invoked by other routines in the ALGOL 
library and by the object program. This 
routine has two entry points. CNVRDI is 
used internally by the other routines. 
ENTIER is used when 'ENTIER' is encountered 
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in the object program. The routine con- 
verts a real number of either short or long 
precision into an integer nuirber. 
Error exit : 40 



SYSACT : 



GET/PUT: 



parameter 1: 
parameter 2 : 
parameter 3: 

parameter 1: 
parameter 2: 



Data Set Number 
Function Nc. 1-15 
Quantity 

Record Number 
Address of LIST 
procedure 



INPUT/OUTPUT PROCEDURES 



The Library contains the 
procedures: 



following I/O 



Module Name I/O Procedure 

IHIGPR GET, PUT 

IHIIAR IN ARRAY, INTARRAY 

IHIBA. INBARRAY 

IHIIBO INBOOLEAN 

IHIIDE INREAL, ININTEGER 

IHIISY INSYMBOL 

IHILOR OUTREAL (Long precision) 

IHISOR OUTREAL (Short precision 

IHIOAR OUTARRAY 

IHIOBA OUTBARRAY 

IHIOBO OUTBOOLEAN 

IHIOIN OUTINTEGER 

IHIOST OUTSTRING 

IHIOSY OUTSYMBOL 

IHIOTA OUTTARRAY 

IHISYS SYSACT 

IHIPTT Power of Ten Table 



Data Set Number 
String 

Destination or 
Source 

Data Set Number 
String 

Data Set Number 
Destination or 
Source 



INSYMBOL/ Parameter 1: 

OUTSYMBOL: parameter 2: 

parameter 3: 



OUTSTRING: parameter 1: 
parameter 2: 

All ether parameter 1: 
procedures: 2 : 



PUT/GET (IHIGPR) 



This module handles the transfer cf data 
between the ALGOL program and the SYSUT2 
data set without conversion tc external 
format. It contains two primary and eight 
subroutines, as follows: 



Primary Routines: 



PUT 

GET 



All I/O procedures utilize one or more 
subroutines contained in a common sufcrou- 
tine pool comprising load module IHIIOR. 

In the object code generated by the 
Compiler, a 4 call to an I/O procedure has 
the following form 

BALR RETURN, ENTRY 



Subroutines: 



OUTPUT 

INPUT 

CPENGP 

CLOSEGP 

CPENEXIT 

CAP1GP 

THUNKOUT 

THUNKIN 



ENTRY are the symbolic 

14 and 15, respectively. 

addresses a parameter 

of two or three full-word 



where RETURN and 
names of registers 
PARAM (register 1) 
list consisting 
entries. 

1 4 

r t 1 

|<Flagbyte>| <Address of the parameter > | 

i ± j 

<Flagbyte>: Bit 0: <Pararneter to be con- 
verted (1) or not (0)> 

Bit 1: <Pararaeter may be ass- 
igned a value (0) or 
not (1)> 

Bits 2-7: (Not used) 

Figure 79. Four- byte parameter list entry 
for a standard procedure call 

Each parameter entry references a param- 
eter which specifies the operation tc be 
performed by the I/O procedure, as follows: 



PUT 



Invoked by the PUT I/O procedure. This 
routine transfers the data specified in the 
LIST procedure in the ALGOL program to the 
SYSUT2 data set. All data handled by a 
single PUT is stored as one record (maximum 
length 2K bytes). The first eight bytes of 
each record have a standard format (see 
Figure 80) . 

2 4 6 7 8 

r t r r -t 1 

| <Record| (used |<Record |<Indi- | (Not | 
|Iength>|ty O.S. ) | Number >| cators>| used) | 



< Indicator > 



Bits 0-5: 
6-7: 



(Net used) 

10 = real 

01 = integer 

11 = boolean 



Figure 80. Label of a PUT/GET record 



\V. 
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If the last PUT/ GET operation was PUT, 
then the current PUT routine checks this 
operation (with the CHECK macro) and makes 
an entry for it in the Note Table (Figure 
87). 
Error exits : 39 , 43 



OPEN EXIT 



Invoked by 0PENGP. This routine tests 
the blocksize if it was specified in the DD 
card for SYSUT2 . The default value is 2K. 
Error exit: None 



GET 



CAP1GP 



Invoked by the GET I/O procedure. This 
routine retrieves the data from the SYSUT2 
data set to the parameters specified in the 
LIST procedure in the ALGOL program. 
Error exits: 10,14,39,43 



Invoked by INPUT and OUTPUT. This rou- 
tine calls the actual parameter for INPUT 
and OUTPUT. It is a copy of the CAP1 
routine in the Fixed Storage Area. 
Error exit: 3 6 



OUTPUT 



THUNKOUT 



Invoked by the LIST procedure via PRO- 
LOG. This routine transfers, one parameter 
at a time, data from the ALGOL program to 
the output buffer. 
Error exits: 20, 21, 38, 43 



Invoked by the LIST procedure for PUT 
calling an actual parameter. This routine 
assigns OUTPUT as an actual parameter to 
the LIST procedure. 
Error exit: None 



INPUT 



THUNKIN 



Invoked by the LIST procedure via PRO- 
LOG. This routine transfers, one parameter 
at a time, data from the input buffer tc 
the ALGOL program. 
Error exits: 20,21,38,43 



Invoked by the LIST procedure for GET 
when calling an actual parameter. This 
routine assigns INPUT as an actual paramet- 
er to the LIST procedure. 
Error exits : None 



OPENGP 



Invoked by the PUT routine if SySUT2 is 
not open. This routine opens the SYSUT2 
data set. The DCB field is the same as for 
the other data sets used at execution time 
(see OPEN) except: 

RECFM=V 

EXLST=A(AOPENEXIT) 

[AOPENEXIT=address of OPENEXIT routine] 



IN ARRAY/ INTARRAY ( IHIIAR ) 



This module consists of a single rou- 
tine, INARRAY/INTARRAY, with two entry 
points. It repeatedly invokes 

INREAL/ININTEGER until the end of the array 
is reached. 
Error exit: None 



Error exit: 41 



INBARRAY (IHIIBA) 



CLOSEGP 



Invoked by CLOSEPE if SYSUT2 is open. 
This routine closes the SYSUT2 data set. 



Tnis module consists of a single rou- 
tine, INBARRAY, which repeatedly invokes 
INBOOLEAN until the end cf the array is 
reached. 
Error exit: None 
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INBOOLEAN (IHIBO) 



OUTREAL (IHILOR) 



This module consists of a single rou- 
tine , INBOOLEAN, which reads the next Boo- 
lean value from the record and assigns it 
to DESTINATION. A 6-byte field, MB, is 
used to store characters following an apos- 
trophe to see if they specify a Boolean 
value, i.e. 'TRUE 1 or 'FALSE 1 . If they do 
not, then the characters after the next 
apostrophe are examined until a Boolean 
value is found. 
Error exit: 2,3,5 

INREAL/ININTEGER (IHIIDE) 



This module consists of a single rou- 
tine, OUTREAL-LONG, which transfers a long- 
precision real number from SOURCE to a data 
set. It dissects the number into its 
mantissa and exponent parts by a series of 
diminishing approximations (making use of 
IHIPTT) and converts to external format. 
Error exit: 38 



OUTARRAY (IHIOAR) 



This module consists of a single rou- 
tine, INREAL/ININTEGER, with three - entry 
points. It reads the next real or integer 
value from the record and assigns it to 
DESTINATION. A flagbyte FKT, is set to 
if the INREAL entry point is used and to 4 
if the ININTEGER entry point is used. 
Error exits: 2,3,5,6 

The subroutine CONVERT (see subroutine 
pool below) may be called if a conversion 
from real to integer is required. If a 
conversion from integer to real is 
required, the Fixed Storage Area routine 
CNVIRD is called. For transforming numbers 
to floating-point or fixed-point represen- 
tation a power-of-ten table (contained in 
module IHIPTT) is used. 

I INSYMBOL (IHIISY) 

This module compares the next character 
on the data set specified by the first pa- 
meter, with each of the characters in the 
character string specified in the second 
parameter, and, when a match is identified, 
assigns a number to the variable specified 
in the third parameter , designating the 
position of the matching character "in the 
string. If no match is, identified, 
variable is assigned the value 0. 
Error exits: 2,3,5 

OUTREAL (IHISOR) 



the 



This module consists of a single rou- 
tine, OUTREAL- SHORT, which transfers a 
short-precision real number from SOURCE to 
a data set. It dissects the number into 
its mantissa and exponent parts by a series 
of diminishing approximations (making use 
of an internal power-of-ten table) and 
converts to external format. 
Error exit: 38 



This module consists of a single 
routine, OUTARRAY, which repeatedly invokes 
OUTREAL-SHORT or OUTREAL-LONG until the end 
of the array is reached. 
Error exit: None 



OUTBARRAY (IHIOBA) 

This module consists of a single rou- 
tine, OUTBARRAY, which repeatedly invokes 
OUTBOOLEAN until the end of the array 
is reached. 
Error exit: None 

OUTBOOLEAN (IHIOBO) 

Invoked by OUTBOOLEAN I/O procedure. 
This module consists of a single routine, 
OUTBOOLEAN, which transfers a Boolean value 
tp a data set, depending on the value of 
SOURCE. 
Error exit: 38 

OUTINTEGER (IHIOIN) 



This module consists of a single rou- 
tine, OUTINTEGER, which transfers an inte- 
ger number from SOURCE to a data set. 
Error exit: 38 



OUTSTRING (IHIOST) 



This module consists of a single rou- 
tine, OUTSTRING, which transfers a string 
from STRING to a data set. 
Error exit: None 



4l_ 
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iOUTSYMBOL (IIIIOSY) 



This module selects a character from 
the character string specified in the sec- 
ond parameter , according to the positional 
number designated by the third parameter, 
and transfers the character selected to the 
data set specified by the first parameter. 
Error exit: 8 



OUTTARRAY (IHIOTA) 



blanks if the last I/O operation performed 

output. 

Error exits: 2, 5 , 10,13 



SYSACT3 



This routine assigns the number of the 
current record (S) to QUANTITY. 
Error exits: 10,12 



This module consists of a single rou- 
tine, OUTTARRAY, which repeatedly invokes 
OUTINTEGER until the end of the array is 
reached. 
Error exit: None 



SYSACT (IHISYS) 



This module consists of the main rou- 
tine, SYSACT, and 15 subroutines, SYSACT1 
to SYSACT15. They influence the execution 
of an I/O operation by either assigning a 
value from DSTAB to QUANTITY, or using the 
value of QUANTITY to reposition pointers 
and respecify indicators in the Data Set 
Table (Figure 86) . 



SYSACT 4 



This routine positions the record pbint- 
er at the record whose number is specified 
by the third parameter. For backward 
repositioning, an entry in NOTTAB (Figure 
87) is required. For forward repositioning, 
the skipped records are filled with blanks 
if the last I/O operation performed output. 
Error exits: 2,5,10,13,14 



SYSACT5 



This routine assigns the value of the 
record length indicator (P) to QUANTITY. 
Error exits: 10,12 



SYSACT 



This routine calls the appropriate sub- 
routine according to the number specified 
in FUNCTION. 
Error exit: 9 



SYSACT6 



This routine assigns the value of QUAN- 
TITY to the record length indicator (P) . 
Error exits: 11,13 



SYSACT1 



This routine assigns the number of the 
current character in the record (R-RE+P+1) 
to QUANTITY (Figure 86). 
Error exits: 10,12 



SYSACT 2 



SYSACT7 



This routine assigns the value of the 
indicator for the number of records per 
section (Q) to QUANTITY. 
Error exit: 12 






This routine skips forward to the char- 
acter whose number is indicated by QUANTITY 
(R=QUANTITY+RE-P-1) ? either in the current 
record when QUANTITY is greater than the 
number of the current character; or in the 
next record when QUANTITY is less or equal 
to the number of the current character. 
The skipped positions are filled with 



SYSACT8 



This routine assigns the value of QUAN- 
TITY to the indicator for the number of 
records/section (Q) . 
Error exits: 0,2,11,13 
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SYSACT9 



This routine assigns the value of the 
indicator for the number of blanks recog- 
nized as a delimiter (K) to QUANTITY. 
Error exit: 12 



tion performed output. 
Error exits: 2, 5/10, 13 



SYSACT15 



SYSACT10 



This routine assigns the value of QUAN- 
TITY to the indicator for the number of 
blanks recognized as a delimiter (K) . 
Error exit: 13 

SYSACT11 



For a sectioned set, this routine passes 
to the record, in the next section, whose 
number is specified by QUANTITY. The 
skipped positions are filled with blanks. 

For an unsectioned data set, this rou- 
tine invokes SYSACT14 in order to pass over 
the number of records (inclusive of current 
one) specified by QUANTITY. 
Error exits: 10,13 



This routine assigns a value to QUANTITY 
according to the status of the data set. 
Error exit: 12 



SUBROUTINE POOL (IHIIOR) 



SYSACT12 



This module comprises eleven routines 
which perform common functions required by 
all I/O modules, and by IHIERR and IIIIFSA. 
The routines are: 



This routine opens a closed data set 
when QUANTITY=1, and closes an open data 
set when QUANTITY=0, 
Error exit: 13 



SYSACT13 



This routine assigns the number of the 
current record (S) to QUANTITY, and also 
sets flagbit (DS4) which causes the current 
record to have an entry put in NOTTAB when 
NEXTREC is called. 
Error exits: 2,10,12 



CLEARNOTTAB 

CLOSE 

CLOSEPE 

CONVERT 

DCBEXIT 

ENDOFDATA 

ENTRYNOTTAB 

EVDSN 

NEXTREC 

OPEN 

SYNAD 



CLEARNOTTAB 



SYSACT14 



For a sectioned data set, this routine 
passes over the number of records 
(inclusive of current one) specified by 
QUANTITY, or to beginning of the next 
section, if the number of records left 
in the section is less than QUANTITY. For 
an unsectioned data set, this routine pass- 
es over the number of records (inclusive of 
current one) specified by QUANTITY. 

The skipped positions and records are 
filled with blanks if the last I/O opera- 



Invoked by NEXTREC, CLOSE. This routine 
deletes the entries in NOTTAB (Figure 87) 
for records which are no longer positioned 
behind the current record, when output has 
occurred. 
Error exit: None 



CLOSE 



Invoked by CLOSEPE, SYSACT12, an4 
TERMNTE (in IIIIFSA) and IHIERR. This rou- 
tine closes a data set. 
Error exit: None 
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CLOSEPE 



NEXTREC 



Invoked via TERMNTE at end of the ALGOL 
program execution. This routine closes all 
data sets by repeatedly invoking CLOSE for 
any that are open (CLOSEGP for SYSUT2). 
Error exit: None 



CONVERT 



Invoked by I/O routines when a conver- 
sion from real to integer is required. 
This routine is a copy of CNVRDI/ENTIER 
contained in the Fixed Storage Area. 
Error exit: 1 



Invoked by the modules that handle all 
I/O procedures except INARRAY/INTARRAY, 
INBARRAY, OUTAFRAY, OUTT ARRAY, OUTBARRAY, 
PUT,, and GET. It is also invoked by IHIERR 
and TERMNTE. For blocked records, this 
routine gets the next record in the block. 
If the end of the block has been reached it 
reads or writes the block and gets a new 
block. For an unblocked record, this rou- 
tine reads or writes the record, makes an 
entry in NOTTAB (Figure 87) if required, 
and gets the next record. 
Error exits: 2, 3 



OPEN 



DCBEXIT 



Invoked by OPEN. This routine esta- 
blishes the Record Format, Record Length 
and Blocksize DCB information for an execu- 
tion time data set. 
Error exit : None 



ENDOFDATA 



invoked by CHECK macro during NEXTREC, 
CLOSE, SYSACT4, or OPEN, if the last record 
has been read. This routine stops the 
retrieval of another record. 
Error exits: 5 



Invoked by the modules that handle all 
I/O procedures except PUT and GET and by 
TERMNTE and IHIERR. This routine opens a 
data set and gets main storage for NOTTAB 
(Figure 87) . It assigns initial addresses 
to pointers in DSTAB (Figure 86), and 
stores the start address of NOTTAE in the 
fixed storage area. The standard DCB model 
is: 



DSORG 


= PS 




MACRF 


= RP, WP 




DDNAME 


= SYSIN when DSN = 
SYSPRINT when DSN = 1 
ALGLDDbb when DSN = 2 






to 15 (bb is replaced 


by DSN) 


NCP 


= 1 




EQDAD 


= A (ENDOFDATA) 




EXLST 


= A (DCBEXIT) 




SYNAD 


= A (SYNAD) 




error exit 


: 2, 7, 37, 41 





SYNAD 



ENTRYNOTTAB 



Invoked by NEXTREC, ENDOFDATA,, PUT, or 
GET. This routine makes an entry in NOTTAB 
by inserting the data set number (from 
register DSN), record identification number 
(from DSTAB) and feedback address (stored 
by a previous NOTE macro) . 
Error exit: 4 



Invoked by CHECK macro during OPEN, PUT, 
GET,, NEXTREC, CLOSE, Or SYSACT4 if an 
unrecoverable I/O error occurs. This rou- 
tine passes to error exit 32. 
Error exit: 3 2 



MATHEMATICAL STANDARD FUNCTION S 



EVDSN 



Invoked by the modules that handle all 
I/O procedures except PUT and GET. This 
routine evaluates the data set number spec- 
ified for the I/O procedure. 
Error exit : 



The table in Figure 81 lists the modules 
contained in the Library which perform the 
standard mathematical functions indicated. 
The routines have been taken from the 
FORTRAN IV Library, and minor modifications 
have been incorporated to suit ALGOL 
requirements. The routines are described 
tin OS FORTRAN IV Library . 
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OBJECT TIME ERROR ROUTINE (IHIERR) 



The Object Time Error Routine . (IHIERR) is 
a module of the SYS1.LINKLIB data set. It 
is loaded into main storage (on call from 
FSAERR) , only if an error is detected in 
the object program. IHIERR constructs and 
prints out the error message on the 



SYSPRINT data set*. before entering TERMNTE, 
which terminates the object program. If 
the DUMP option is specified, IHIERR also 
edits and prints out the contents of the 
existing tXata Storage Areas. The addresses 
of a series of dynamically or logically 
enclosing blocks or procedures are obtained 
by calling the EPILOG routine. 



FUlTCtiQTl 


Precision 


i 

I ALGOL# 
I 


Library 


FORTRAN IV 


(E) 




Library 










l 

J Module 


Entry 


Module 






Entry 










i Name 


Name 


Name 






Name 


— 


LN i 


Long 




i 

1 IHILLO 


IHILLO 


IHCILOG 






DLOG 






Short 




J IHISLO 


IHISLO 


IHCLOG 






ALOG 




EXP 


Long 




f IHILEX 


IHILEX 


IHCLEXP 






DEXP 






Short 




1 IHISEX 


IHISEX 


IHCSEXP 






EXP 




SQRT 


Long 




| IHILSQ 


IHILSQ 


IHCLSQRT 






DSQRT 






Short 




| IHISSQ 


IHISSQ 


IHCSSQRT 






SQRT 




ARCTAN 


Long 




1 IHILAT 


IHILAT 


IHCLATAN 






DATAN 






Short 




| IHISAT 


IHISAT 


IHC SATAN 






ATAN 




SIN 






j IHILSC 


IHILSCS 


IHCLSCN 






DSIN 




COS 


Long 




1 IHILSC 


IHILSCC 


IHCLSCN 






DCOS 




SIN 






j IHISSC 


IHISSCS 


IHCSSCN 






SIN 




COS 


Short 




j IHISSC 


IHISSCC 


IHCSSCN 






COS 




POWER : 


1) 




1 IHIFII 


IHIFII 


IHCFIXPI 






FIXPI# 


























3) 




| IHIFDI 


IHIFDI 


IHCFDXPI 






FDXPI# 






4) 




1 IHIERR 


IHIFRR 


IHCFRXPR 






FRXPR# 






5) 




J IHIFDD 


IHIFDD 


IHCFDXPD 






FDXPD# 




Nc 


Dtes: 1) 


Base 


and Exponent 


____________ 

: fixed poi 


________________ 

nt 












2) 


Base: 


floating po 


int (short) 


; Exponent: fixed 


point 






3) 


Base: 


floating point (long) ; 


Exponent: fixed 


point 






4) 


Base : 


floating point (short) 


; Exponent: f lc 


>ating 


point (short) 






5) 


Base: 


floating po 


int (long) ; 


Exponent: floating 


point (long) 





Figure 81. Module names of mathematical standard functions contained in the ALGOL Library 
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CHAPTER 11: THE OBJECT MODULE 



The output of the Compiler is an object 
module, consisting of machine language 
instructions, constants, and object time 
tables. The object module is output as a 
card deck on SYSPUITCH and/or transferred to 
the SYSLIN data set (in card- image ESD, 
TXT, RLD and END records) depending on the 
options specified in the invoking EXEC 
statement. The object module contains an 
ESD record entry for each Library procedure 
called in the source module and for the 
Fixed STorage Area, as well as RLD record 
entries for all address constants. 



The object module is processed by the 
Linkage Editor, which combines the Fixed 
Storage Area and the called Library rou- 
tines with the generated code, to form a 
single load module. The RLD re cords pro- 
vided in the object module are used by 
the Linkage Editor to change relative ad- 
dress constants to absolute address 
constants. 



Record 
Type 

ESD 



TXT 

TXT 
it 

TXT 

TXT 
ii 

RLD 

RLD 

TXT 

TXT 
ii 

TXT 
TXT 

RLD 

RLD 
•i 

ESD 
ESD 



Object Module 



Content 

Control section definition. Con- 
tains procedure name if the PRO- 
CEDURE option is specified. 

Constant Pool(s) 

H ■ ■ ■ | | 



Generated objec t code 
i » ■ ■ i t n — 



(Param. and switch list addresses) 



Label Address Table (LAT) 

(Declared procedure, switch and 
label addresses) 
(Internal branch addresses) 



(Library routines called) 



RLD 
RLD 



OBJECT MODULE 



Figure 82 indicates the composition of 
the object module generated by the Compil- 
er. 



TXT 

TXT 
ii 

RLD 

RLD 
ii 

TXT 
TXT 



Program Block Table (PBT) 
ri n—-" n n — 



(Constant Pool addresses) 



Data Set Table 

H || h 



(DSTAB) 
H 



IHIFSAIN is the symbolic address of the 
entry point of the object module. IHIFSAIN 
is specified in the END record if the 
compilation option is PROGRAM. It desig- 
nates the address of the initial entry 
routine in the Fixed Storage Area. 



If the compilation option is PROCEDURE 
the entry point specified inthe END record 
is IHIENTIF. 



IHIENTIF is the symbolic address of an 
Address List, containing theaddresses of 
the object time Program Block Table, the 
Label Address Table and the start address 
of the generated instructions. The Address 
list is referenced by the Initialization 
routine and by other routines in the Fixed 
Storage Area. 



RLD Put/Get Control Field address * 
IHIENTIF: Address Table 

TXT Addresses of Program Block Table 
TXT Addresses of Label Address Table 
TXT Addresses of first instruction in 
object module 
IHIFSAIN - Initial entry routine* 
in Fixed Storage Area 
Address of Program Block Table 
Address of Label Address Table 
Address of first instruction 
IHIENTIF - address of Address Table > 
DSTAB: addr. of Data Set Table > 
IHIFSAIN if compilation option is 
PROGRAM. (IHIENTIF if compilation 
option is PROCEDURE) 



ESD 

RLD 
RLD 
RLD 
ESD 
ESD 
END 



^ generated only if the PROGRAM option 
is specified 



Figure 32. Composition 
module 



of the object 
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LOAD MODULE 



Figure 83 pictures the organization of 
the load module constructed by the Linkage 
Editor. The layout of routines and tables 
is indicated in detail in the storage map 
in Appendix IX-b. 



Register 10 (CDSA)__ 



Figure 83. 



(Generated Code) 



Label Address Table (LAT) 



Data Set Table (DSTAB) 



k (PBT) 
'(LAT) 
i (Start of gen. code) 



PROLPBN - XA9- 
A(DSTAS) - X-AC" 
A (NOTTAB) - X30" 
SCRCS - X-C0- 

RASSTART - XC4' 
Administrative Routines 

CNVIRD, CNVIRDI 

CAP1, CAP2 

PROLOG 

VALUCALL 

RETPROG 

EPILOG 



Fixed 



The logical structure of the code gener- 
ated for specific logical features of the 
source module is discussed under various 
headings in Chapter 3. Figure 58 lists the 
principal sections of Chapter 8, Each 
section indicates the part played by the 
related Fixed Storage Area routines in the 
load module. 



OBJECT TIME TABLES 



The tables used by the load module at 
execution time are discussed below. Figure 
83 indicates the location of the various 
tables in the load module. 



|| iLobel Address Table J Procedure 

'! l^rogr7m~Blocl7obl7 J 

J IJA7PI ST) 1 (Address 

H-JA(LAT) I Table) 

t — JA jStart^f jnstruefipns). ' 
■Library Routines 



Note Table (NOTTAB) 



Tables, Data Storage Areas ond 
buffers set up by the Load Module, 
and precompiled procedures called 
from the user's library. The arrange- 
ment shown is imaginary. The actual 
layout in any, given case will depend 
on the structure of the particular 
program and on the particular point in 
time during execution of the program. 



PROGRAM BLOCK TABLI 



(PBT) 



Sketch showing the organiza- 
tion of the load module and 
the use of main storage by a 
hypothetical load module. 



The Program Block Table (Figure 84) is 
the object time version of Program Block 
Table IV, constructed by the Termination 
Phase (IEX51 - Chapter 8). 

The Program Block Table has three main 
functions: 



1. To identify the character of every 
scope (block, procedure, type pro- 
cedure, or code procedure) in the 
program. The character of the scope 
determines the particular action 
taken by the Fixed Storage Area rou- 
tine PROLOG, which is called when 
a block is entered or a procedure 
called. See below. 



2. To specify the size of the Data Sto- 
rage Area required by every block 
and procedure , Main storage for the 
required Data Storage Area is 
acquired by PROLOG as soon as the 
block is entered or the procedure 
is called. 



,4T 
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3. To provide a record of the base 
address of the Data Storage Area. 
The base address, which is recorded 
immediately after acquisition of the 
Data Storage Area, is used in 
addressing any variable declared or 
specified in the particular block or 
procedure. 



Every block and procedure is identified 
by a serial Program Block Number. The Pro- 
gram Block Number designates a correspon- 
ding entry in the Program Block Table. It 
is specified in every call to the Fixed 
Storage Area routines PROLOG and EPILOG, 
which are invoked at entry to and at exit 
from a block or procedure. 

The particular action taken by PROLOG at 
entry to a given scope depends on the char- 
acter of the scope, as indicated below. 



Block A Data Storage Area is ac- 
quired for the entered block, 
its address being stored in 
the corresponding Program 
Block Table entry and loaded 
into base register 10 (CDSA) . 
Control is then passed to the 
first instruction in the 
block. 

Procedure- After a Data Storage Area has 
Call been acquired, as in the case 
of a block, the addresses 
and characteristics of the 
actual parameters specified in 
the procedure call are moved 
into the storage fields 
reserved for the formal para- 
meters in the new Data Storage 
Area. The procedure is then 
entered. See Figure 63. 



Type- 



Procedure- 
CaTT 



Code 

Procedure 

Call 



The action taken is the same 
as in the case of a normal 
procedure. There is a differ- 
ence (of 8 bytes), however, in 
the displacement of the formal 
parameter storage fields in 
the Data Storage Area. 

In the case of a code proce- 
dure, the Program Block Table 
entrv contains the address of 
an address list within the 
corresponding precompiled pro- 
cedure. See Figure 83. (The 
address is stored in the entry 
by the Fixed Storage Area rou- 
tine LOADPP, after loading the 
precompiled procedure into 
main storage from the user's 
library. The precompiled pro- 
cedure is loaded when the code 
procedure is declared.) The 
address list contains the ad- 
dresses of the precompiled 
procedure's own Program Block 
and Label Address Tables as 
well as the entry point ad- 
dress. PROLOG loads registers 
11 (PBT) , 12 (LAT) and 8 (ADR) 
with the addresses in the ad- 
dress list, and then acquires 
a Data Storage Area for the 
precompiled procedure, using 
the size specified in the 
first entry of the precompiled 
procedure's own Program Block 
Table. The addresses and char- 
acteristics of the actual 
parameters are then moved into 
the new Data Storage Area, and 
the precompiled procedure is 
activated. 



The Program 3lock Table is consulted and 
updated by the following Fixed Storage Area 
routines, in addition to PROLOG, EPILOG and 
LOADPP: CAP1, CAP2, CSWEl and CSWE2. 
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Entry for: 
Constant Pool 0: 

P.B. No. 1: 

P.B. No. 2: 

P.B. No. 3: 



P.B. No. N: 

Constant Pool 1 (if any): 

Constant Pool 2 (if any): 



c 


> 4 




8 






<Address of Constant Pool 0> 


<Job step name or 
procedure name>* 






<Adress of DSA/Address of 
precompiled procedure/All 
zeros> 


<Size of DSA> 


<Scope 
Code> 


<No. of 
par am .> 






< Address of DSA/Address of 
precompiled procedure/All 
zeros> 


<Size of DSA> 


<Scope 
Code> 


<No. of 
par am .> 






< Address of DSA/Address of 
precompiled procedure/All 
zeros> 


<Size of DSA> 


<Scope 
Codo 


<No. of 
param .> 




I 


• 
• 


: K 




<Address of DSA/Address of 
precompiled procedure/All 
zeros> 


^Size of DSA> 


<Scope 
Code> 


<No. of 
param .> 






< Address of Constant Pool 1> 


<AII zeros> 






<Address of Constant Pool 2> 


<AII zeros> 





<Scope Code> - X'00' = Block 

X'04' = Non-type procedure 

X'08' = Type procedure 

X'10' = Code procedure 

<No. of param > = <Number of parameters (zero for a block)> 

*< Job step name> if the module is a program, 
<Procedure name> if the module is a precompiled procedure 



•Figure 84. Object time Program Block 
Table (PBT) 



Label Address Table LAT) 



The Label Address Table contains a maxi- 
mum of 256 four-byte entries , containing 
absolute addresses needed by the load 
module. The first 28 entries are reserved 
for the addresses of ALGOL Library modules 
representing standard I/O procedures and 
mathematical functions which have been com- 
bined with the load module. If a given 
Library module has been combined with the 
load module , the corresponding full-word 
entry in the Label Address Table will 
contain the entry point address of the 
Library module; otherwise, the entry will 
contain the value X 1 80000000'. The full- 
word entry which corresponds to each 
standard I/O procedure or mathematical 
function is indicated by the displacement 
data in the internal names of the standard 
procedures listed in Appendix III. 



00 

04 
06 

oc 

10 
14 
18 
1C 
20 
24 
28 
2C 
30 
34 
38 
3C 
40 



<Address of INT ARRAY 



<Address of INBARRAY 



<Address of OUTSYMBO L or X -80000000 '> 



48 
4C 
50 
54 

58 
5C 
60 
64 
68 
6C 
70 



<Address of SYSACT 



or X-80000000^ 



<Address of SQRT 



or X^OOOOOOO^ 



<Address of SIN 



or X-80000000-> 



<Address of COS 



or X-80000000-> 



<Address of ARCTAN 



or X-80000000'> 



<Address of LN 



or X-80000000'> 



<Address of EXP 



or X'SOOOOOOO^ 



<Address of INSYMBOL 



or X-80000000'> 



<Address of INREAL 



or X-80000000-> 



<Address of ININTEGER or X-80000000'> 



<Address of INBOOLEAN or X-80000000'> 



<Address of INARRAY 



or X-80000000'> 



or X-80000000'> 



or X-80000000'> 



<Address of OUTREAL 



or X-80000000-> 



<Address of OUTINTEGER or X-80000000'> 



<Address of OUTBOOLEAN or X^OOOOOOO^ 



<Address of OUTARRAY 



or X-80000000'> 



<Address of OUTTARRAY or X-80000000-> 



<Address of OUTBARRAY or X'SOOOOOOO^ 



<Address of OUTSTRING or X-80000000'> 



<Address of PUT 



or X-80000000'> 



<Address of GET 



or X-80000000'> 



<Address of POWER-FiFi or X^OOOOOOO^ 



<Address of POWER-FIFi* or X-SOOOOOOO 



<Address of POWER-FIFI * or X-80000000'> 



<X-80000000'> 



^p, (Addresses of labels, procedures and ^-^ 

^ switches declared in the source module) 



^-7 (Branch addresses generated by the Compiler) 



<h> 



Max. 0400 



•Figure 85. 



*Fi = Fixed Point; Fl = Fating Point. The 
abbreviations designate the representation of 
the base and exponent, respectively. 

Object time Label Address 
Table (LAT) 
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Data Set Table (DSTAB) 



The Data Set Table is constructed by the 
Termination Phase (IEX51 - Chapter 8). The 
table is consulted and updated at execution 
time by the standard I/O procedures invoked 
by the load module , and indicates the 
status of all data sets. Each entry pro- 
vides a record, among other things, for the. 
address of the relevant Data Control Block, 
for other specific data required to execute 
and I/O operation, as well as for the 



temporary storage 
information. 



of variable 



address 



The Data Set Table contains a 36-byte 
entry for data sets Nos. and 1 and for 
every other data set used by the load 
module, as v/ell as a 28-byte ■ ontry (called 
the PUT/GET Control Field) at the end of 
the table, if the load module executes a 
PUT or GET macro instruction. The first 
full-word in the table, named APGCF, con- 
tains the address of the PUT/GET Control 
Field, or, if the latter is not present, the 
hexadecimal value X'aOOOGOOO'. 



°r 



12 
16 
20 
24 
28 
32 



ADC3 <Address of DCB^ 



R <Address of next character in 
record> 



ADCB <Address of DC3> 
4 



RE <Address of current record end> j 



12 



NBB <Address of next buffer> 
BB <Address of current buffer> 



S <Current record P <Record length> j 
number > ' 



4 20 



24 



DSF 



NOTEADR (Storage field for NOTEd 

record address> ! 

"1 



BL <Buf fer 
length> 



<Copy of DSF 
above> 



K: <Number of blanks used 

as delimiter> 
Q: <Number of records per 

section> 
DSF: (Flagbytes — see text) 



R <Address of next character in 
record> 



RE <Address of current record end> 
BB <Address of buffer start> 



BE <Address of buffer end> 



NOTEADR (Storage field for NOTEd 
record address> 



J L. 



<Record id. 
number> 



TYP 



I 



TYP: Indication of type of 

data in current record - 
Bits 6-7: 01 - integer 

10 - real^ 

11 - boolean 

PG: Flagbyte - 

3it 0: - data set open 

1 - data set not open 
Bit 1: - last PUT/GET op. 
was PUT 
1 - last PUT/GET op. 
was GET 



Figure 86. Content of the data set entries and the PUT/GET Control Field 
in the Data Set Table 






190 



Form Y33-8000-0, Page Revised by TNL Y33-80Q3 , 6/19/68 



Bytes 26 and 27 of the data set entry 
(named DSF) are used as flag bytes. The 
I significance associated with each of the 
■ binary positions used is as follows: 



The initial values inserted in the var- 
ious fields of the data set entries and the 
PUT/GET Control Field are indicated in 
Chapter 8 under "Data Set Table". 



DSF- 



byte 26 -bit 0= 

1 

1= 

1 





2= 



1 - 



3= 



4= 



7= 



4 = 



Data set is not open 

Data set is open 

Records are blocked 

xiecords are unblocked 

Last I/O operation was 

input 

Last I/O operation was 

output 

In the current block no 

output has occurred 

In the current block 

output has occurred 



- 



1 - 



An entry in NOTTAB is 
required when the next 
record is addressed 
Backward repositioning 
was not performed 
Backward repositioning 
was performed 
6= - Last block was not 
output 

Last block was output 
End of data has not 
been reached 
End of data has been 
reached 



1 - 



byte 27 -bit 0= 
1 



1= - 



1 - 

- 

1 - 

- 

1 - 

- 

1 - 



Data set has been 
repositioned backward 
after an input operation 
or data set is being 
closed. 

Record does not contain 
a control character 
Record contains a 
control character, 
(not used) 

SYSPRINT is not to be 
opened for diagnostics 
or termination messages 
SYSPRINT is to be opened 
for diagnostics or 
termination messages 

Data set is being opened 



An unrecoverable I/O 
operation nas occurred. 
6= - Data set has never been 
opened 
1 - Data set has been opened 
7= o - Data set 1 is not to be 
closed 
1 - Data set 1 is to be 
closed 



Note Table (NOTTAB) 



The Note Table is an index which is 
consulted and updated by the ALGOL Library 
procedures PUT, GET, SYS£CT(13) and 
SYSACT(U). The table provides space for up 
to 127 8-byte entries containing a cede 
number identifying a particular PUT/GET 
operation or a record on a given data set, 
and a data set address specifying the 
location on the data set where the PUT/GET 
operation was started or where the record 
is stored. The entries serve to facilitate 
the retrieval of data from a data set. 



2 A » 

r t t 1 

|<Data Set|<Code no. or|<Data set address>| 
| Number> | record no.>| | 

l x x J 

Figure 87. Entry in the object time Ncte 
Table (NOTTAB) 



Data Storage Area (PSA) 



The Data Storage Area ccirprises the 
total area of main storage required for all 
identifiers declared or specified in a 
block or a procedure and for intermediate 
results and/or addresses which must be 
temporarily stored. A Data Storage Area is 
acquired (by the Fixed Storage Area routine 
PROLOG) when a fclock is entered or a 
procedure is called. The Data Storage Area 
is released (ty the Fixed Storage Area 
routine EPILOG) at exit from the particular 
block or procedure. The size of a given 
block's or procedure's Data Storage Area is 
specified in the Program Block Table. When a 
Data Storage Area is acquired, its address 
is stored in the corresponding entry of the 
Program Block Table. Base register CCSA 
(register 10) at all times addresses the 
Data Storage Area of the current (or 
immediately embracing) block or procedure. 
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o r — 1 

I <Address of the dynamically preceding 
Data Storage Area, if any, of the 
current block or procedure >*■ 



h 



h 



10 h 



12 



16 



h 



h 
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<Address of the Data Storage Area of 
the block or procedure calling the 
current block or procedure > 2 



H 



< Displacement of the Program Block 
Table entry of the current block or 
procedure> 3 



displacement in this Data Storage 
Area of the storage field of the last 
value-specified array parameter^ 



displacement in this Data Storage 
Area of the Storage Mapping Function 
of the last declared array> 5 



<Address of the Program Block Table 
active when this Data Storage Area 
was acquired> 



<Address of the Label Address Table 
active when this Data Storage Area 
was acquired> 



h 



(Storage fields reserved for identifi- 
ers declared or specified in the 
current block or procedure. In the 
case of a declared type- procedure, 
the first eight bytes are reserved 
for the value of the type-procedure. 
The storage field sizes are: 
Declared Variables 



Integer 


4 


bytes 


Real- short 


4 


bytes 


Real- long 


8 


bytes 


Boolean 


1 


byte 


Arrays 6 






Formal 






Parameters' 7 


8 


bytes 



(Storage fields reserved for inter- 
mediate values and/or addresses) 



Figure 88. Content of the Data Storage 
Area 

Notes on Figure 88 (the numbers refer tc 
the superscripts in the figure): 

1 A preceding Data Storage Area for the 
current block or procedure will exist 
only where the current block or proce- 
dure is entered as a result of a 
recursive procedure call. In this 
case, the present Data Storage Area 



will relate either to the recursively 
called procedure or to a block or 
procedure enclosed by a recursively 
called procedure* 

The address of the preceding Data Stor- 
age Area, if any,, is obtained from the 
Program Block Table entry of the cur- 
rent block or procedure. The latter 
entry will immediately afterward con- 
tain the address of the current Data 
Storage Area. 



2 The address of the Data Storage Area of 
the calling block or procedure is 
obtained from the corresponding entry 
in the Program Block Table. 

3 At exit from the current block or 
procedure, the address in bytes 0-4 of 
the dynamically preceding Data Storage 
Area of the recursively calling block 
or procedure is stored in the corres- 
ponding entry of the Program Block 
Table. Bytes 8-9 specify the displace- 
ment of the entry. 

** During an active procedure call, the 
storage field of a value-specified 
array parameter contains the address of 
a temporarily constructed Storage tap- 
ping Function (a copy of the Storage 
Mapping Function of a declared array) 
located outside any existing Data Stor- 
age Area, adjacent to the array storage 
area. The area occupied by the storage 
Mapping Function and the array must be 
released at exit from the current block 
or procedure. 

5 At exit from the current block, the 
storage area(s) acquired for any 
array (s) declared in the current blcck 
is (are) released. Bytes 12-16 specify 
the displacement of the Storage Mapping 
Function of the last declared array (if 
any) , containing the address of the 
array's storage area. Where twc or 
more arrays are declared in a block the 
Storage Mapping Function (Figure 62) 
contains the displacement in the cur- 
rent Data Storage Area of the Storage 
Mapping Function of the previously 
declared array. 

6 See Chapter 5 ("Storage Allocation"). 

7 The contents of the eight- byte storage 
field of a formal parameter called by 
name and called by value is indicated 
in Figure 8 9. 
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Formal parameter called by name. 
4 



6 8 

"T T 1 

| Characteristic of |<Number of actual | 

| actual parameter > | parameters (first | 

| j parameter only)> | 

-J. x J 



| <Address of actual parameter 

j code sequence> 

I 



Formal parameter called by value: 

Array: 

4 8 

r r 1 

|<Address of Storage Mapping | (Not used) | 

| Function (outside the Data | | 

| Storage Area)> | | 

L J. J 

Label: 

4 8 

r 1 1 

|<Address of the labelled | <Address of the DSA in which label is| 
| instruct ion> j declared> | 

L J J 

Variable: 

8 

r 1 

| <Value of the variable (1 , 4 or 8 bytes) > | 

L J 

Figure 89, Content of the 8-byte storage field of a formal parameter called 
by name and called by value during an active procedure call 



Storage Mapping Function (SMF) 



Return Address Stack (RAS) 



The Storage Mapping Function (Figure 
62) , which is constructed at object time, 
specifies , among other things, the size of 
the area required for a particular array 
and (after the area has been acquired) the 
address of the array's storage area as well 
as the array's zero-base address. The 
Storage Mapping Function is described in 
detail in Chapter 8 under "Arrays". 



In the case of a declared array, the 
Storage Mapping Function is constructed, at 
entry to the block in which the array is 
declared, in the storage area reserved for 
it at compile time in the block' s Data 
Storage Area. Immediately after construc- 
tion of the Storage Mapping Function, a 
storage area is acquired for the array 
outside the Data Storage Area, the address 
being stored in the appropriate entry of 
the Storage Mapping Function. 

In the case of a value-specified array 
parameter of a procedure, the actual array 
specified in the procedure call is copied 
(by the Fixed Storage Area routine 
VALUCALL) into another storage area, 
together with a modified copy of the relat- 
ed Storage Mapping Function. 



The Return Address Stack has three 
functions: 



irain 



to provide a record of the encompass- 
ing block structure at every point in 
the object module. This record, which 
consists of the addresses cf the Data 
Storage Areas of all embracing blocks 
and procedures, is used mainly in 
releasing the related Data Storage 
Area(s) when a goto statement, imply- 
ing an exit from one or mere embracing 
blocks or procedures, is executed. 



to provide a record cf the return 
address, following a call to a proce- 
dure, to an actual parameter cede 
sequence, or to a switch element. 



to provide a record of the names and 
entry point addresses of lead modules 
representing precompiled procedures 
called by the object module. The 
entry point addresses are used when, 
at exit from the embracing block, the 
loaded module is deleted. 
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r~ 



4 

T" 



| <Entry|<Address of the | <Return | 
j Code>| Data Storage Area>| Address>| 
l jl J. J 



Return Address Stack entries are con- 
structed and released by the following 
Fixed Storage Area routines (see Chapter 
10) : 



<Entry Code>: 

X' 00' - Signifies that the entry 
relates to a call for an actual 
parameter or a switch element, 

X'FE' - Signifies that the entry 
relates to a declared code pro- 
cedure, that the DSA address is 
the address of the DSA of the 
block in which the code proce- 
dure is declared, and that the 
return address is the entry 
point of the load module rep- 
resenting the precompiled pro- 
cedure. Specifies to RETPROG 
that the load module is to be 
deleted at exit from the block 
in which the code procedure is 
declared. In this case, the 
load module name is stored in 
an entry at the opposite end of 
the Return Address Stack. 

X'FF' - Signifies that the entry 
relates to a block entered or a 
procedure called, and specifies 
to RETPROG that the Data Stor- 
age Area addressed in bytes 0-3 
is to be released, if a goto 
statement implies a branch out 
of the related block or proce- 
dure. 



Entries 
constructed by 

PROLOG 
LOADPP 
CAP1 
CSWE1 



Entries 
released by 

EPILOG 
RETPROG 
CAP2 
CSWE2 



A total of 2 04 8 bytes are provided fcr 
the Return Address Stack, 



OBJECT TIME REGISTER USE 



In the generated object module, certain 
general purpose registers are used exclu- 
sively as base registers (e.g. tc address 
the current Data Storage Area cr the Pro- 
gram Block Table), while the remaining 
general purpose registers and all floating 
point registers are used for variable com- 
putational and addressing use. The 
compile-time control and assignment of 
variable-use registers is described in 
Chapter 8 under "Control of Object Time 
Registers". 



<Return Address>: 

(Entry code X'00') - <address of next 
instruction following a call for an 
actual parameter or a switch element, 
or unspecified> 

(Entry code X'FE') - <entry point address 
of the precompiled procedure load 
module> 

(Entry code X'FF') - <address of next 
instruction following a procedure 
call, or unspecified (in the case of a 
£>lock)> 



The function of the base 
illustrated in Figure 83. 



registers is 



Figure 90. Entry in the object time Return 
Address Stack (RAS) 
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_ 1 T - 

I Name | 
-+ +- 



Register No, 



Use 



General Purpose Registers 

1 
2 
3 

5 
6 
7 



10 

11 
12 
13 
14 
15 



h 



(Variable) 
(Variable) 
(Variable) 
(Variable) 
(Variable) 
(Variable) 
(Variable) 
(Variable) 

ADR 

GDSA 



CDSA 

PBT 
LAT 
FSA 
STH 
BRR 



Variable computational use. 
Variable computational use. 
Variable computational use. 
Variable computational use. 
Variable computational use. 
Variable computational use. 
Variable computational use. 
Variable computational use. 
Variable addressing use 

Base register - addresses the Data Storage 
Area of a block (other than the current block 
or procedure) 

Base register - addresses the current Data 
Storage Area (i.e. of the immediately encom- 
passing block or procedure) . 

Base register - addresses the Program Block 
Table. 

Base register - addresses the Label Address 
Table 

Base register - addresses the Fixed Storage 
Area . 

Variable, short term use, e.g. in communi- 
cation with Fixed Storage Area routines. 
Branch register - used in branching within the 
generated code and in branching to Fixed 
Storage Area routines. 



Floating Point Registers 

2 
4 
6 



Variable computational use 
Variable computational use 
Variable computational use 
Variable computational use 



Figure 91. Object time register use 



%, 
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ALGOL (F) Compiler Flowcharts 

The following section contains a complete set of summary flowcharts of the ALGOL 
Library routines. 

The organization of the flowcharts reflects the logical division of the Compiler 
into ten individual phases, as well as the normal sequence of execution of the 
phases. (A deviation from the normal execution sequence occurs only if a terminat- 
ing error is detected by a given phase. The possible deviations are indicated in 
the overall flowchart and are discussed in Chapter 9) . The organization of the 
flowcharts is as follows. 

Chart Nos. Pages 

ALGOL Compiler - Overall Flow 001 197 

Directory" (IEX00) 002-006 198-200 

Initialization Phase (IEX10) 007-010 201-202 

Scan I/II Phase (IEXll) 011-034 203-214 

Identifier Table Manipulation Phase (IEX20) 035-039 215-217 

Diagnostic Output (IEX21) 040-043 218-219 

Scan III Phase (IEX30) 044-070 220-233 
Diagnostic Output (IEX31) 071 234 

Subscript Handling Phase (IEX40) 072-076 235-237 

Compilation Phase (IEX50) 077-123 238-261 

Termination Phase (IEX51) 124-128 262-264 

ALGOL Library 129-142 265-271 

An aid in quickly locating the flowchart and/or descriptive text for any given 
routine is provided in the Index of Routines in Appendix XI. 

With a few exceptions , the flowcharts have been condensed , so as to accomodate two 
flowcharts on every page. Each flowchart is identified by a serial flowchart num- 
ber , which appears at the top of the chart, together with the related microfiche 
identification. It is important to note that connections between flowcharts (in- 
dicated by the standard off-page connector symbol) are represented in terms of the 
flowchart number and not the page number. 

The following special conventions have been implemented in connection with the use 
of the processing symbol to represent complex logical program units, i.e. modules 
(or phases), routines and subroutines. 

!• The striped symbol identifies a phase or a closed 
subroutine. The symbolic name of the phase or 
subroutine, and the related detailed flowchart (If 
any) , are identified above the stripe., The absence 
of a flowchart number above the stripe indicates 
that no detailed flowchart exists. 

2. Routines and major components of routines are 
represented by the standard (unstriped) symbol. 
The symbolic name (if any) of the routine and the 
detailed flowchart (if any) are shown in the 
upper left and right corners of the symbol, sep- 
arated by a dashed line. 
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Chart OOl t ALGOL Compiler 
Overall Flow 



. x*****A2 ********** *****£3********** 

*TEXOO 002* *TEX10 007* 

* *LI NK * * 

* COMPILER * X* *.. 

* DIRECTORY * *INIT I AL IZ AT ION * 
..* * * * 

***************** 



***************** 



♦SCAN I/II PHASE* 
* * 

***************** 



* IDENTIFIER TAH.E 

* MANIPULATION * 

* PHASE * 
***************** 



DIAGNOSTIC OUTPUT 
* * 

***************** 



♦SCAN III PHASE * 
***************** 



DIAGNOSTIC OUTPUT 
* * 

***********: 



***************** 



COMPILATION 
PHAS E 



***************** 



XCTL 
X..... 



***************** 



* LIPRARY * 

***************** 
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Chart 002; 



Directory 
Summary 



- IEX00 



Microfiche IEX00-1 



(FROM OS ON PROGRAM INTERRUPT) 



(FROM OS AT ENO OF DATA) 



***************** 



****o********* 

* * 

* LINK TO IEX10 * 

*************** 



* PROGRAM 

* INTERRUPT 

* ROUTINE 
**************** 



****C3 ********* 

* TERMINATION * 

* ROUTINE TN * 

* CURRENT PHASE * 
*************** 



***************: 



****C5********* 

*E0D ROUTINE IN * 
* CURRENT PHASE * 

*************** 



(RETURN FROM IEXE1) 
***** 
*002* 
* El* 
* * 



*****E i********** 



***************** 



(FRCP CS CN I/O ERROR) 



(FROM OS 

ON I /C FRRnR 
ON SYSPRINT 



****F1********* 

* RETURN TO * 

* INVOK ER * 

* * 
*************** 



***************** 



***************** 



****G3********* 

* TERMINATION * 

* ROUT INF IN * 

* CURRENT PHASE * 
*************** 



****G5 ********* 

* TERMINATION * 

* ROUTINF IN * 

* CURRENT PHASF * 
*************** 



CIBdEXll ) 
PRINT! TBJIFX20) 
COT21 (IEX21 ,-31,-51 ) 

****H5 ********* 

* * 

* PRINT * 



* PRINT SOURCE * 
♦PROGRAM AND/PR * 
*DT GNOSTIC MFSS.* 
***************** 



****K5 ********* 
* RETURN 
*************** 
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Chart 003 : Directory - IEX00 Microfiche IEX00-1 

Initial Entry and 
Final Exit 

(FROM INVCKFR) 



;AVE REGISTERS * 

N OS. SAVE AREA* 

ADDRESSED BY « 

REG. 13 « 



♦STORE ADOR. OF ' 
*OS SAVE AREA IK' 

* IEXCO SAVE 

* AREA(SAVE) > 



*LCAD ADDRESS ( 

* COMMON fcORK 

* AREA(CVA) IN 



****F2********* 
*LTN" TO I EX 10 * 



RETURN FROM IEX51) 



RETURN Tr 
INVOKER 







Chart 004 ; Directory - IEX00 

Program Interrupt - PIROUT 



Microfiche IEX00-1 



HAS COMPILER 
TERMINATION ROUTINE 
BEEN ENTERED? 



EC0PD ERROR 



****E3********** 



IEX510C2 



* TERMINATING * 
» ROUTINE IN * 

* CURRENT PHASE » 



Chart 005 : Directory - IEX00 



Microfiche IEX00-1 



I/O Error and EOD - SYNPR, 
SYNAD, EODAD1/-2/-3/-IN 



FROM OS ON 
I/O ERROR > 



,*»B3********* 



►♦♦C3 ********** 



♦♦♦♦E3 ********** 



****F3**», 

* TEPMINAT 

* BCUTUE 

* CURRENT f 



Chart 006 ; 



Directory - IEX00 
PRINT and PRINTP 



Microfiche IEX00-1 



CTBC IEX11) 
PRINTITBOEX20) 
C0T27C IEX21.IEX3! 



****A 1********* 



*****B 1********** 



H****B4********** 
* GR1=PREVLIN * 
k (AOOR.THE * 

> CURR.PRINT * 

► BUFFER) * 



► KEACINGIS) *. YES ♦ MOVE TEXT FRCP * 

(♦PRINT BUFFER TC* 
* SAVELINE * 



* 


. PRINTED .* 


>rintsw" 

=ONSK> 




* NO 

.{PRINTSW 

.=OFFSW) 




(LINCNTA 


*V*'*. 




% 


IS THIS *. YES 

THE TITLE .* 

. PAGE .* 



*****D2********** 

* PNTSVf=CFFSV * 

* {HEAD. PRINTED) * 

* LINCNTA+1=0 * 
*(NCT TITLE FAGE) 



♦ INCREMENT LINE * 

♦ COUNT BY K* ♦ 
♦CONTROL CHAR IN* 

♦ FIRST BYTE OF ♦ 



*PUT THE LINE C 
TEXT ON 
* SYSPRINT 



THE LAST El 
LINE .* 

OF THIS* LI 



(BUFFER 








CONTAINS A X 








LINE *****F1********** 


*****F2********** 


(PAGEHEAD ACCOMrOATES 






* REG 9=ADDR OF * 


UP TC THREE LINES 


****F4*** 


TEXT)* CHAR FOR PAGE * 


* PAGEHEAD. REG * 


CF TEXT) 




♦ SHIFT IN FIRST * 


♦ 1C=DISP TC KEXT* 




* RETUR 


* BYTE OF PRINT * 


* HFADL. RFG11 * 






* BUFFER * 


* =END PAGEHEAD * 




****♦♦♦♦* 





PRINTC .*. 




G2 


PRINTSW=ONSW * 


.* THIS 


HEACING TO BE * 


.*HEADLIN 


PRINTED NEXT * 


*. BE 



♦PRINT THE LINE ♦ 
*GR1=ADDR OF NEK* 
* BUFFER * 



**t**E2 ********** 

* ADD 1 TO PAGE * 
♦COUNT AND MCVE * 



' STORE ADDR.OF 

' NFW BUFFFR AT 

PREVLIN 



* MOVE HEADLINE * 

* FROM PAGEHEAD * 

* TO PRINTBLFFER * 



**»**J2 ********** 



.♦NEXT HEAC- ♦. YES 
► . LINE). ALL HEAD-.. 
♦LINES PBOC»* 



CALL 
FOR NEW 
. PAGE 



♦ RESTORF TFXT 
X * from SAVELINI 
♦TO PRINTBUFFFI 



PRINTE X 

*****K ].♦***♦****« 

* CLEAN OUT NEW * 

* BUFFER AND * 

* INSERT SINGLE * 

* SPACE CONTROL * 

* CHARACTER * 



*****K2*********> 

* STORE LINE ' 
•COLNT. GR1=ADCR' 

..X*CF NEK BUFFER. > 

* RESTORE REGS. « 



****K3 ********* 
(* RETURN * 



Chart 007: 



Initialization Phase 
Overall Flow 



IEX10 



Microfiche IEX10-1 



* SAVE REGISTERS 

* IN CkA SAVE 

* AREA 



*****C2 ********** 

* EXECUTE SPIE, * 

* SPECIFYING * 

* DIRECTORY * 
•ROUTINE PIRCUT * 
*ERET=A(GOTCTERP) 



*EOITOATE * 

* GET DATE AND * 

* PRINT FIRST * 

* PAGE * 



*TEST DCB'S AND 

* SET NOGO = l IF 

* SYSIN/SYSUT1 
*-2/-3 NOT OP<=N 



*****E2********** 
* READ OPTIONS * 



* CONTROL FIELD * 



' STORE ODNAKES, * 



*****D5 ********* 

•CLOSE SYSIN ANt 

* SYSUT1 AND 

,X*RELEASF SOURCE 



****f=4********* 
* XCTL TO IFX11 * 



****F5' 
XCTL TC IEX; 



i 

O 

P 
H 



♦FNOARSI Z :--*--* 

* SET UP AREA * 

* SIZE TABLE * 



Chart 008 : Initialization Phase - IEX10 
Option Processing 



Microfiche IEX10-1 



.****E1********** 
VE REGISTERS * 
IN CVA SAVE * 



*****C1********** 

* EXECUTE SPIE, * 

* SPECIFYING * 

* DIRECTORY * 
♦ROUTINE PIROUT.* 



ERET = GOTOTERH* 



> GET OPTION * 
* ADDRESS FIELD * 

► ACDRESS * 



.*FIRST(NEXTI*. NG 

*. OPTION IS .* 

*. VACANT .* 



NOG 0=1 



*****G 1********** 



CONTROL 

OPTIONS 

.SPECIFIED. 



•TICK *. YES .* SIZE 

J SIZE .* X*. CORRECTLY 

.* *. SPECIFIED. 



♦CONVERT SIZF 



; 








* AODRFSS * 
*PARA«ETER LIST * 

* FARMLIST * 








***************** 








*****D3*4******** 








* ACCPESS * 

* FIRST(NEXT) * 
*PARHLIST ENTRY * 


NOTFOUND 






E3 *. 

.♦OPTION *. 
.* . NAfE IN *. NO 


.* END 


1ST 

HED .* 


. yes! 




*. REAC 


Vyes 


*'*•* 




F3 *. 


F4* 
.*END 


OF**. 





*. FOLLOWED BY , 



RECORD ERROR 
NC.200 VI TH 
OPTION NAPE 



MOVENOT .*. 



Chart 009 : Initialization Phase - IEX10 

DDnarae Processing and Opening Data Sets 



Microfiche IEX10-1 



Chart 010 ; Initialization Phase - IEX10 
Opening Data Sets 



Microfiche IEX10-1 



DONAMES 
♦ 009* 



♦ .SPECIFIED.* 



» GET KEACING 
* OPTION FIELD 
► ACCPESS 



*****Q3 ********** 



*STCRE CFEN EXIT* 
X*RPUTINE ADDRESS* 
*IN SYSPRINT DCB* 



* PRELIMINARY * 

* FPROR POOL TO * 
*HAIN ERROR POOL* 



*STCRE OPEN EXIT 

* ROUTINE 

* ADDRESSES IN 

* SYSLIN, SYSIN 
♦SYSPUNCH DCB'S 



***05 ******* 




SOURCE 




BUFFER 


LEN 


TH IN 


SYSUT1 AND 


SYSUT2 DCB "S 



SYSPUNCH, 

SYSUT2 AND 

SYSUT3 



*****B i*** ******* 

* ERET = GOTOEDIT* 
*(PROG. IN TERR. * 

* EXIT FOR * 

* PIROUT) * 



*. SPECIFIED .*.... 



♦CLOSE SYSIN AND* 
♦SYSUT1 REALEASF* 
* BUFFER * 



Dl *. *****D2********** 

SYSLIN *. NO * NLOAD =1. * 

OPENED .* X* RECORD ERROR * 

.* * NO. 202 * 



*****E 1********** 

* GET FIRST * 
*ADCRESS IN DCB * 

* ACCRESS FIELD * 



IVE CD NAME TO* 



.♦SIZE > *. 
.* = SIZE IN * 
, AREA SIZE 
*. TAELE .« 



*****J3 ********** 

* GETMAIN FOR * 
*ERRCR PCCL AND * 

* SOURCE TEXT * 

* BUFFER 1 * 



* GET NEXT DO * 
♦OPTION AND DCB * 

♦ ADDRESS * 



* END OF *. 

DD OPTION . 

► . FIELD .♦ 



t****G4********i 



******J5********4 

SKIP TO NEW 

♦PAGE AND PRINT 

TITLE ON 



*****G2********4: 



GOTOEDI T 

*****H2******4 
♦CLOSE 



• X*CLOSE SYSIN AND' 
♦ SYSUT1. RELEASE' 
-♦ BUFFER 1 



*****H3 *»***♦***! 
.X* TERR = 1 



♦♦♦♦J 1********* 
♦ eRANCF TO IEX11* 



XCTL TC IEX21 » 



jfe&S*. 



Chart Oil : 



Scan I/I I Phase 
Overall Flow 



IEX11 



Microfiches IEX11-1, 
IEX11-2 and IEX11-3 



Chart 012: 



Scan I/II Phase - IEX11 
Overall Flow 



Microfiches IEX11-1, 
IEX11-2 and IEXll-3 



IT AB= IDENTIFIER TABLE 



* INITIALIZE— 013,* 

* GETMAIN FOR * 

* PRIVATE AREA. * 
*.. READ FIRST * 
♦SOURCE TEXT REC* 



*****C3 ********** 
♦TESTLOOP 013* 

* SCAN TO NEXT * 
X*SIGNIF. CHARAC* 

* TRANSFER THF * 

* SCANNEC TEXT ♦ 



[HIT 018* 

COMPARE ♦ 

:LIMITERS>' * 
I DELIMS. OF* 



ROUT 019* 

COMPARE * 

•<0EL1MITER>' * 

WITH ALL * 

DELIMITERS * 



*****C5 ******♦♦♦" 
,.X*RECCRD AN FRP0P' 



eRANCH *. 


.* BRANCH 


ACCORC. TO •* 


*. ACCORD. TO 


.CELIHETER.* 


♦ .DELIMETER 



.* ERANCH * 
. ACCORD TO 
♦ .CHARACTER.* 



POINT COLON . INVALID CHARACTER ZETA 

DINT .*. X \ J, x 

3141 El *. *****E2********** . *****E4********** *****p 5 ********, 

• * *• *COLON 015* **** . *ERR1 * *CIB 017 

.* POINT *. POINT *ENTER LABEL IN * * * . * * * 

*. FOLLOWED BY .* X*ITAB OR TRANSF.* X* C3 * . * DISREGARD THE * *EXCHANGE INPUT 

*• •* *ASSIGN OR COMMA* -* * * CHAR. RECORD * * BUFFERS 

*• •* * * **** . * ERROR NO. 1 * * 

*- .* ***************** m *, 

•DIGIT = CCMMA '. 

*****F i********** *****F2********** X * 

* TRANSFER A * * * * * \ 

* DECIMAL POINT * *TRANSFER ASSIGN* * HI * 



■BEGIN' 'FOR' 



8 

O 






.* SEMICOLON *. NO 
<*. CLOSES A .*.., 
♦ .PROCEDURE.* 



* TRANSFER AN 1 
*ITAB RECORD TO * 

* SYSUT3 « 



*****K i********** 

* TRANSFER * 

* SEMICOLON OR *.. 

* DELTA * 



BEG1NI020) 
FOR(020) X 

*****£ x********** 

* TRANSFER AN * 
♦OPERATOR. ENTER* 
*AN OPERATOR IN * 

* STACK * 



* STRI NG 033 * 

♦ENTER STRING IN* 
♦CONSTANT POOL. * 

* TRANSFER * 

* INTERNAL NAME * 



*****E4********** 
*BOL CON 020* 

* TRANSFER AN 

* INTERNAL NAME 

* FORI OR IN 

* CONSTANT POOL 



■VALUE' 
■LABEL' 
•STRING' 



'PROCECURE' 



TYPE(023) 
ARRAY(024) . 
SWITCHI02S1 1 



.*DECLARATION*.FICATION 

. OR SPECI- .* 

♦.FICATION .* 



X PR0CEDU1 

*****G2*********^ (029) 

* SPECENT 031 *S PECI- 

♦CLASSIFY FORMAL *FICATION .♦Dl 
t* PARAMETERS IN *X 

* IDENTIFIER * 

* TABLE (SEE K3 1 * 



*****G4********** 
* SCAN TO NFXT ♦ 



♦DECLARATION 



♦DECLARATION ♦*♦* 



*****H3 ********** 

♦ APOSTP.CF 015+ 

♦ SCAN TO NEXT ♦ 

♦ APOSTROPHE OR ♦ 

♦ DIGIT ♦ 



*****H<t*******+** 



* DISREGARD THE ♦ 



*RIGHTPAR * 

♦TRANSFER ) AND 1 
♦ SET A POINTER * 



.* FIRST *. 




EGI 022 


* 




.* FIRST *. 






.* *. 


.♦DECLARATION*. 


YES * 






YES 


♦DECLARATION* 






* END OF *. 


*. AFTER .' 




ASSIGN NEW 






AFTER 






SOURCE 


*. 'BEGIN' .* 




PROGRAM BLOCK 






*. 'BEGIN' .* 






*. MODULE .* 






NUMBER 
















*********. ******* 












* NO 










* NO 






* YES 


*****j I********** 








*****J3 ********** 






* MAKE ENTRIES ' 










AKE ENTRY FOR 






***J4********* 


* FOR CECLARED ' 










PRCCECURE 








♦ ICENTIFIERS IN * 










IDENTIFIER IN 






XCTL TO TEX20 


* IDENTIFIER < 










IDENTIFIER 








* TABLE < 










TABLE 




*************** 










***************** 







<OTHEP DELIMETERS> 



*****E5*X*******i 
♦NORMAL 020' 

♦ TRANSFER 

♦ CPFRATOR TO 

♦ REPRESFNT T H E ■■ 

♦ DELIfETER 



♦TRANSFER IOENT. 
♦TABLE RFCORD Tt 
* SYSUT3 



* SCALE FACTOR 



♦ APOSTROPHE 



*****K3*********< 

* ENTER FORMAL 

* PARAMETERS IN 

* IDENTIFIER 

* TAELE 



Chart 013 : Scan I/II Phase - IEXll 

Initialization and TESTLOOP 



Microfiche IEX11-1 



[TIALIZATION * 



»***B1*********4 

ERET = CLOSE 2 * 

(P/I EXIT FDR * 

PIROUT IN * 



*D1********** 



EXITS FOR 
EOCACIN AND 
PIROUT IN 
DIRECTORY) 



*SET POINTERS FOR 
*C0N .POOL, STACK,* 

* ITAB BUFFER, * 

* OUTPUT BUFFER * 

* ANC ITAB * 



* MOVE HEADING 

* FOR SOURCE 
♦LISTING TO CW 



* INITIALIZE 

* COUNTERS AN 
► SWITCHES 





(OPENING 




DELIMITER 




FOUND) 


*****C 1********** 




* GETHAIN FOR * 




*CON. POOL, STACK* 




* ITAB BUFFER, * 




* OUTPUT BUFFER * 





*. STARTBIT = 1 



f~"\ 



Chart 014 : Scan I/II Phase - IEXll 
POINT and STATE 



Microfiche IEX11-1 



TESTLOOP POIN1 



* SCAN TO NEXT 

* SIGNIFICANT 

* CHARACTER 



.* BRANCH * 
, ACCORD. TO 
♦ .CHARACTER.* 



'DECPOINT * 

IMAL POINT * 



(•STACK PBOC** 



*CIB 017 

X* CHANGE INPUT 



****G3*»***» 
<* RETURN 



PARAMETERS .* . 



RECORD ERROR 



Chart 015 ? Scan I/I I Phase - IEX11 
APOSTROF and COLON 



Microfiche IEX11-1 



APOSTROPHE 



* SCAN TO NEXT 
► SIGNIFICANT 

* CHARACTER 



CHANGE INPUT 



TESTLOOP COLON 



S LABEL IN ITAB* 



*****J3 ********** 



"■TRANSFER ASSIGN*. 



Chart 016 : Scan I/II Phase - IEX11 
SEMCO 



Microfiche IEX11-1 







CCDE 






CCMPEN02 






TYPE 






SEMCLST 






IER 




SEKC60 


PRCCIO 
SPEC 


TE STLCOP 




CCH 






SLASHLST 


APOSTPOF 


♦016* 


IDC HECK 



SEMCO HOOULE 
USES 60-CHARACTER 
SET OF EBCDIC 
CODE 



■****B2******' 
SET60=1 



SEMICOLON 
FOLLOWS A 
DECLARATION 



.♦BRANCH < 
► ACCOPC TO 

STACK 
*. OPER. 



► RELEASE FOR. 



WRITE ITAf 
RECCPC ON 
SYSUT3 



*****G5*****< 
« G-5 *....X*SEMICOLON COUNTS 



♦TRANSFER DELTA 



SET POINTERS 
'OPIN AND LAFII 
TO SEFI COLON OP> 



Chart 017 : Scan I/II Phase - IEX11 
CIB,COB and COBSPEC 



Microfiche IEX11-1 



* MOVE LAST 7 

» CHARACTERS TO 

* FRONT OF WORK 
► AREA 



EAP(REG.3)=BYTE PCINTER 
IN OLTPLT BUFFER 

APE POINTS TO LAST BYTE 
IN OLTPUT BUFFER 

REGO(REG.O) CONTAINS 
THE CURRFNT ADDRESS IN 
EAP PLUS A SPECIFIC NUMBER 
OF BYTES SPECIFIED BY 
THE CALLING ROUTINE 



*.EC APE? .* 



****** E 1*********** 
* G ETR EC * 



*MOVE SEMICOLON * 



*****G2********** 

♦MOVE NEfc RECORD* 

,X*TO DUMMY PRINT * 

*AREA(SAVE PRINT)* 



* TRANSFER ZET/ 



IRTTE OPERATION* 



WRITE THIS 
RECORD ON 
* SYSUT1 



* SET POINTERS 
*EAP AND APE Tn 

* ALTERNATE 

* BUFFER 



* INCREMENT * 

* OUTPUT RECORD * 

* COUNT (ONC) * 



♦RECORC IN WORK * 



Chart 018 : Scan I/II Phase - IEX11 

DELIMIT, TYPESPEC and COMSPEC 



Microfiche IEX11-1 



* DISREGARD THE * 



INITIALIZE * 

POINTERS TO * 

DELIMITER TABLE* 



*****G 1********** 

* ACCRESS NEXT * 

* DELIMITER TABLE*X. 

* ENTRY * 



.* DELIMITER 

ENTRIES 
*.C Of PARED?. 



OPENING 
OEL IM ITER 
"=OUND 



DFLIMITER * 

ENTRY 

. FOUND? .* 









UNTIL' 


* 'OR' 


WHILE' 


* 'ANC 






EOUAL' 


* 'STEP' 


EQUIV 


* -LESS' 


NOTLESS 


* • IMPL ' 


GREATER 




NOTEQUA 1 


************ 


NOTGREA 



Chart 019 ; Scan I/II Phase - IEX11 
EROUT and STARTDEL 



Microfiche IEX11-1 



Chart 020 : Scan I/II Phase - IEX11 

NORMAL, BOLCON, GIF, TED 
BEGIN, FOR and CODE 



STARTDEL 



Microfiche IEX1I-1 
(CODE and FOR: IEX11-2) 



.* *. YES 

. DELIMITER = .*.... 
*. 'BEGIN' .* 



t ADDRESS NEXT * 
'DELIMITER TABLE* X. 
> ENTRY * 



NO .* DELIMITER * 
....*. ENTRIES 

♦ .COMPARED?.* 





OPENING 








DELIMITER X 






***» E2 ********** 


FOUND .*. 

E3 *. 




E4****. 


ERR2C * 


.*** *"*. 


NO 


.•DELIME-*. 




RECCRD ERROR * 


*. ST»RTEIT = 1 . 


* . . . 


*./ 'INTEGER' /.*.. 
*. 'BOOLEAN'.* 



► STARTBIT = 1 * 



)ING IN ITAB* 



► RECORD ERROR 



•****B1********** 

* TRANSFER * 

* ONE-BYTE * 

* DELIMITER * 

* SYMBOL * 



TRANSFER 5-BYTE< 

INTERNAL NAME 

REPRESENTING 

•TRUE' OR 

•FALSE' 



:****B3********** 
TRANSFER * 

ONE-BYTE * 

DELIMITER * 
SYMBOL * 



LOGICAL CLOSE. 
OF SOURCE NO-. 
DULE REACHED X 
(SEE PBLCKEND*. 
-CHART 022J4 * 



*****C A* ********* 

* TRANSFER * 

* DELIMITER * 

* SYMBOL. SET * 
♦LABEL POINTERS * 



RECCRD ERROR 



YES .* *. NO 

...*. APOSTROPHE .*.... 

*. FOLLOWS .* 



.* STACK * . 
. OPERATOR = . 
*. PROC? .* 



RANSFER 

'ONE-BYTE BEGI 

SYMBOL 



t****F3*********> 



*****F5 •*•****> 

MODIFY ITAB 

ENTRY OF 

•ROC. IDENTIFIER' 

TO CODE PROC. 

PROBIT = 



i**»*G4*****< 



.* STACK 

*. OPERATOR = 

*. PROC? 



*****G5********1 
* TFR GAMMA AND 
•PROCEDURE EXT. 



o 

3* 



•/■ 


•UNTIL' 


* 




■OR' 


•WHILE' 






•AND' 


•POWER' 






•NOT' 


•EQUAL' 




*02C* 


•STEP' 


•EOUIV 




* B4* 


•LESS' 


•NOTLESS" 








'GREATER' 








•NOTEQUAL' 








■NOTGREATER 








•REAL* 








•INTEGER 








•BOOLEAN 



•PROCEDURE 1 



Chart 021 t Scan I/I I Phase - IEX11 
END and COMPEND2 



Microfiche IEX11-2 



LOGICAL CLOSE* 
OF SOURCE 
MODULE REACHED 



!*. ENCBIT=1 



* * .* STACK *. NO * 

* CA *....X*. OPERATOR = .* X* DELTABIT = 1 

* * *. FOR? .* * 



* RELEASE FOR. 



. X*ViRITE I TAB BLCCK. 
* ON SYSUT3. * 
♦RELEASE PROC** * 



....X*WRITE ITAB BLCC 

* ■ ON SYSUT3. 

* RELEASE PRCC 



EL TAB IT = 1 



♦PBLCKEND 022 * 

i.X*KRITE ITAB BLCCK. 

* ON SYSIT3. * 

* RELEASE PROC* * 



*PBLCKEND 022 



*****H2********** 

BEGIN. *COMPDEND * 

....X*RELEASE BEGIN. *.. 
* TRANSFER END * 



X*HRITE ITAB BLCCK. 

* ON SYSLT3. * 

* RELEASE BETA * 



.X*ENDELSEBIT - ] 



^^ 



Chart 022 ; Scan I/II Phase - IEX11 

BEG1, PBLCKEND and FOREND 



Microfiche IEX11-2 



SEMCO 

END 

COMPEND2 



»**B1********** 




BEGBIT = 0. * 


RESET POINTERS * 


EPLACE BEGIN * 


TO PRECEDING * 


BY BETA IN * 


P.B. AND F.S. * 


STACK * 


HEADINGS * 


*************** 


**************** 



RANSFER BETA * 

P.B. NO. AND * 
I.G.NO. * 



******C2***»* ****** 

* WRITE CLCSED * 
ITAB BLOCK ON 
* SYSLT3 * 



****01********** 

HAKE PROGRAM * 

BLOCK HEADING * 

IN ITAB * 



* CONTINl'A 
♦ENTRY (I. 

* FROM CURREN 



t****D4***** 
» TRANSFER E 
» AND ENCLOS 
► I.G.NO. REL 



****E1****** 
* RETURN 



*. TERBIT=1 



* CHANGE EOC 

* ADDRESS TO 
.X*EODADIN. ENCBI 



Chart 023 t Scan I/II Phase - IEX11 Microfiche IEX11-2 
TYPE 



fROUT TYPE 



.* *. YES 

C3* "*. 

.* *. YES 
*. BEGBIT=1 .* X* ASSIGN NEW * 

* NO 

* ENTER * 
♦CHARACTERISTIC * 
*AND P. PI. NO. IN * 

* NEXT ITAB ENTRY* 

* E3 *.X. 

.* *. <ANY OTHER *IFRSPFC 028 

IE .* NEXT *. CHARACTER> * 

X*. CHARACTER? .* X* DISREGARD 

*. •* * IDENTIFIER 

. (ANY LETTER) \ * 

* ENTER LETTER IN* 

* ITAB ENTRY * 





o 

0J 


• x 


*****H2 ***»♦* 
♦COPY CHARACT 

♦ I STIC ANO P. 

♦ NO. INTO NE 

♦ ITAB ENTRY 



♦♦♦♦*J3 ********** 



Chart 024 : Scan I/II Phase - IEX11 
TYPEARRY and ARRAY 



Microfiche IEXll-2 



SPECIF 


IN 
















PROCECURE 
















l-EACIN 




•„ 


YES 


* STORE * 






YES 
























































♦ 03 




* NO 








*031* 
* C3* 


* NO 




* B2 


FIRST 


















CECLAR 


\J ION . 








* 








■BEGIN 


CI *. 






*BEG1 022 * 




C3-*-*. 












YES 








YES 






BEGBIT=1 

















*BEG1 022 



*****Df********** 



* COPY INTERNAL * 
►NAME IN CURRENT* COMMA .* 

* ITAB ENTRY TO *X ♦. CHARACTER ? . 



****E2********* 
IDCHECK1 


t LETTER 


TO ITAB ENTRY 
AND O/P TEXT 




.* NEXT **. 





.* NEXT *. NC 

. CHARACTER = .* X* RECORD ERROR 

* NC.16 



CHARACTER? 



IFCCRD FRRCR 



Chart 025 t Scan I/II Phase - IEXll 
SWITCH 



Microfiche IEXll- 2 



.* *. YES 
*. PROBIT=l .* 

*. .* *031> 

* NO * 82' 

C3 *. 
.* *. *BEG1 022 

*. e?GBIT=l .* X* ASSIGN NFW 

*. .* * P.B.NO. 

*****D3 ********** 

♦CONSTRUCT ENTRY* 
*F0R IDENTIFIER * 

* IN ITAB * 

***************** 

.* NEXT *. NO * 

*. CHARACTER = .* X* RECORD ERROR 

*. LETTER? .* * NO. 5 

♦IDCHFCK1 * 

* TRNS. IDENTIF * 

* TO ITAE ENTRY * 
XT * 

.* next *. *err2 

.♦characters *. no * 

. :=/.=/..=? .*.... ....x* record error 

*. .* * NO. 16 



Chart 026 ; Scan I/II Phase - IEXll 
LIST 



Microfiche IEXll- 2 



SWITCH 
PONTLST 
SLASHLIST 



* SCAN TO NEXT 

' SIGNIFICANT 

CHARACTER 



*****/S3 ********** 

♦COLCNLST * 

* TRANSFER THE * 
,X* COLON IF IN *.. 



*****B3 ********** 



* INCREASE CIH- * 
t*ENSION/COMPON- * 

* ENT COUNT * 

* TRANSFER * 



♦ LEFTPARL r* 

* TRANSFER LEFT * 
.X* BRACKET OR ( . * 

* INCREASE * 

♦ BRACKET CCUNT. ' 



►TRANSFER THE ) 
► CECREASE 
k BRACKET COUNT 



*SEHCLST * 

♦ ENTER DIMENSION* 
,X* CCUNT IN ITAe *. 






APOSTROPHE 



*CIB 01"' 

. X* CHANGE SOURCE 



Chart 027 t Scan I/II Phase - IEXll 
POINTLST 



Microfiche IEX11-2 



LIST POINTLST 

*0 27* 



•**#*C4*X******** 



*****E2********** 



LIST SLAS 



► 1( ARRAY) * Bl* 



k*E4****** 
rRANSFER / 



'STORE DIMENSION' 
'COUNT IN ARRf 

ENTIFIER 
ENTRIES IN ITAB' 



!3* 
0> 



. CHARACTER? 



SEMICOLON 



►COPY CHARACTER-" 

► ISTIC ANO P.B. 
* NO. INTO NEXT 

► I TAB ENTRY 



****J3*4******«: 



Chart 028 : Scan I/II Phase - IEXll 
IERSPEC and IER 



Microfiche IEXll- 2 



TYPESPEC 
TYPE 

****A1********* 

* IERSPEC * 



►RT. PARENTHESIS 



****E1*X******** 



****F1**«****** 



***E2> 
DELETE CURRENT 



IDENTIFIER 



F2 *. 



Chart 029 ; Scan I/II Phase - IEX11 
TYPPROC and PROCEDUR 



Microfiche IEX11-2 



rPESPEC TYPPROC 



SPECIF. X 

IN PROCEDURE.* 
KEACING Bl 



*****B2 ********** 
* STORE * 
*. YES *CHARACTERISTIC * 
.* X*F0R SPEC. TYPE.* 



*****C2 ********** 



..X* ASSIGN N 



*****D1****** 
* INSERT 

♦CHARACTER 1ST 



» TERISTIC FOR 
► PROCEDURE IN 
C ITAB ENTRY 



.* STACK *. YES * STARTBIT = 

*. OPERATOR = .* X* PROCESD = 



£T.\ 



Chart 030 ; Scan I/II Phase - IEX11 
PROCID 



Microfiche IEX11-2 






HARACTER? .*. 



RECORD ERROR 



* SEARCH FOR 
X* SEMIcrirN CR 
*LFPT "ARFTHfSIS 



♦TRANSFER COMMA .* 
* INCREASE *. 

♦PARAMETER COUNT* 



♦ ENTER PARAM. CT* 

* IN PROC. ID. * 
*ENTRY. FMBIT=0 * 



*IER 02? 



►REPLACE LETTER * 






► RECORD ERROR 



Chart 031 : Scan I/II Phase - IEX11 Microfiche IEX11-2 

SPEC, SPECENT, IDCHECK and VALUE 



Chart 032 : Scan I/II Phase - IEX11 
COM, COMERR, COMMEND 



Microfiche IEX11-2 



EROUT SPEC 



TYPESPEC 
TYPEPROC 



PBICKEND COMMEND 



*.' PROBIT - 1 '.* 

***NO 


* MOVE * 
•CHARACTERISTIC * 










*»*»*BA*****.*.** 


.* B5 *v 


* TABLE TO KB * 


****** 


....J 


ER? 


ANY 


***************** 
OTHER*IERSPEC * 




*****c 1********** 
*ERR1 * 


***'** C 2********** 
* APCS 


fRROPHE. 


C3* 
CHARAC 


*****C5******»*»* 










***************** 






* ENTRY * 


* NO. 28 * 



*****83*»***< 
* COEIT =1 



*****C3********** 

* SCAN TC NEXT * 
K SEMICOLON OR * 

* APOSTROPHE * 







.* NEXT *. 










*. CHARACTER? . 


^ 








<LETTER OR . 




<ANY OTHER 


EMICOLON 


COMMA 


DIGIT> 




CHARACTER> 


Fl********** 


X 


F3* "*. 




X 










*ERR2E * 




♦CCMPARE ID. IN 


.* six *. 


YES 




T.TABIT =1 *... 


....X* IOBUCKET WITH 


*. CHARACTERS . 




* RECORD ERROR * 






♦ .ENTERED? .* 








* IN I TAB 



















NO .* MATCHING ». 
....*. PARAMETER .* 
*. FOUND? .* 



♦ INTO I TAB ENTRY* 



*****G3 ********** 






ERASE I TAB 



EMBRACING 
FOR STHT 



SEMICOLON 

ENDS 

DECLARATION 






. DELTAS IT=1 .*. 



Chart 033 : Scan I/II Phase - IEXll 
STRING 



Microfiche IEXll- 2 



*****B3********< 

♦ TRANSFER AN 

♦ APOSTROPHE ANO * 
♦5-BYTE INTERNAL* DISPL; 

♦ NAPE FOR STRING* POOL POINTER-SPCL 



* MCVE SCANNEC 
» PRINT AREA TO 



♦***E2******< 



E3 *. *****E4******* 

.*" NEXT *. CHARACTERS 
,*. CHARACTER? .* X* REGN =1 



♦ (EXTERNAL CODE)* 



:haracter 



(SQC = STRING 


** 


***H2********** 




H3 *. 


QUOTE COUNT) 


* 


INCREASE SQC. * 


, 


♦"character 




* 


REGN =3 *X... 


*. 


AT REPL+1 



*****J3********** 



*****K3*« 

* - HOVE REPL ' 

* t LENGTH=REGN) i 
,X* TO CONSTANT ' 

* POOL ENTRY * 



* STORE STRING 



Chart 034 : Scan I/II Phase - IEXll 

ENDMISS, READROUT, COMPFIN 
EODADIN and CLOSE2 



Microfiche IEX11-2 
(COMPFIN: IEX11-1) 



PBLCKEND .*. 



ERROR3S „ 

*****02******** 

..X* RECORD ERROR 



COMMEND READROUT 



B4 *. 

*....X*'. TERR=1 



ANY ENTRIES FOR 




PROGRAM BLOCK* 




NO.O IN .*. 




ITAB C *. 


*****C5 ********** 


.* P.B.C *. YES 




*. IN ITAB? .* 


..X* PB08IT =1 * 


***. .*** 


I*******,******** 


* NO 




*034* 








**** . 


i 


* * . 


♦PBLCKEND 022 * 


♦TRANSFER OMEGA * 


...» WRITE LAST * 




* RECORD ON * 




* SYSUT3 * 






MORE THAN ON EX 




OUTPUT TEXT .*. 










*COB * 


.* *. YES 






..X* WRITE LAST * 




* RECORD ON * 




* SYSLT1 * 







*****F 1*** ******* 



[ROUT CLOSE 2 

IRECTORY *034* 



♦ STORE CONSTANTS* 

•0-15 IN CONST. * 

.X* POOL. UPDATE * 



ERRA *034* 



* RECORD ERROR 



t* IEX21 



rxTS 127F1 



* GENFRATE TXT 

* RECOROS FCR 

* CONSTANT POOL 



Chart 035 : Identifier Table Manipulation Phase - IEX20 
Overall Flow 



Microfiche IEX20 



* I EX 20 * 

* * 
*************** 



*****B3 ********** 



***************** 






******C3*********** 

♦REACBLK 036* 

READ AN ITAB 
* BLOCK * 

************* 



*****C3 ********** 



♦SCAN BLOCK FOR 

* MULTIPLE 

* DECLARATIONS 



********* 



*****E3 ********** 
*ALLCST0R 037* 

* ALLOCATE * 

* STORAGE TO * 
♦IDENTIFIERS IN * 

* BLCCK * 
***************** 



.* ALL *. 
.* BLOCKS *. NO 
*. PROCESSED? .*... 



(IN ASCEND IN G 
PROGRAM BLCCK 
NUMBER SECUENCE) 



******G3** ********* 

♦WRITITAe 038* 

WRITE ITAB ON 
* SYSUT3 * 

************* 



H3 ♦ . *****HA********** 

.* *. * * 

.* SOURCE *. YES *ITABPRINT 03<?* 

*. SPECIFIED .* X* PRINT LISTING * 

*. .♦ * OF ITAB * 

*. .* * * 

*. .* ***************** 
* NO 

.X '. 

X 
*****j 3 ********** 

♦ * 
♦CLOSE 038* 

♦ TERMINATION * 

♦ * 
***************** 



****K3*****+*+* 

* * 

♦ XCTL TC IEX21 * 

*************** 



Flowcharts: Identifier Table Manipulation (IEX20) 215 



Chart 036 t Identifier Table Manipulation Phase - IEX20 Microfiche 
Initialization and READBLK IEX20 



******B4********* 
READ AN ITAB 
* BLOCK TO NEXT 
.X FREE SPACE 

* <AITAB) * 



*****C4********** - 

* STORE-BLOCK" S * 
*A0DRESS IN ATAB* 

* ACCORDING TO * 



*****D4* ********* 

*INCREASE AITAB * 

* BY LENGTH OF * 

* BLOCK * 



> INITIALIZE 

► POINTERS AND 
* COUNTERS 



SET RAID TO 



*SET UP HEADING * 

* FOR ITAB * 

* LISTING. CALL < 
1= PRI NT ROUTINE * 

* IN DIRECTORY. < 



h/8 ACCORDING* 



♦NEXT IDENTIFIERSX. 



>****G4********** 

K COMPARE * 

^IDENTIFIERS AT * 
> RAID AND AKOM * 



* RECORD ERROR 



* SET RAID TO 
*NEXT IDENTIFT! 

.X* ENTRY. RESFT 

* AKOM=RAID 



Chart 037 ; Identifier Table Manipulation Phase 
ALLOSTOR 



IEX20 



Microfiche 
IEX20 



IS TYPE '.*. 

fr.PROCEDUR .* 



*****C1********** *****C2******" 

* DP=32. * ..X* DP=DP+C 



» **«** B 3******* 


*** 


DP=D0U8LE-H0R0 DISPLACEMENT POINTER 






WP=WORD DISPLACEMENT POINTER 


* WP=0. FP=0. 




HP= HALF-WORD DISPLACEMENT POINTER 


► X* BP=0. 


* 


BP=BYTE DISPLACEMENT POINTER 
C=PARAMETER(4 OR 8) WHICH SPECIFIFS 
THE INCREMENT IN DP, DEPENDING ON 






PRECISION SPECIFIED( SEE TNITTALIZ 


****** 




CHART DA) 
X =4 IF LONG PRECISION AND DIM AN UN* 


* B3 * 




NUMBER, OTHERWISE X=P. 
DIM=NO. OF DIMENSIONS IN INTERNAL 
NAME OF ARRAY IDENTIFIER 


t 4****C3**4******* 




* * SET RAID TO 


* 




X*NEXT ICENTIF! 


ER* 




* X * IN BLCCK 


* 





*****Q4******4 



SIHPLF VARIABLE 



* STCPE 
*BP/HP/WP/HP 1 

* INTERNAL NAt< 



*****j i********** 

* STORE DP IN * 

♦ INTERNAL NAME. * 



.* *. * MODIFY * 

.*TYPE-PROC. *. YES * IDENTIFIER'S < 

► . CALLED BY .* X*CHARAC TERI STIC * 

"*. VALUE .* *TO SHOW CALL BY1 

*. .* * VALUE * 



.*PROC, *. 

.* SWITCH OR *. Y 

> .STRING CALLED.*. 

*.BY VALUE .* 






*. PRECISION 



k***jS**** 
STORE DP 



STORE HP IN 



I # 



Chart 038 t Identifier Table Manipulation Phase - IEX20 Microfiche 
WRITITAB and CLOSE IEX20 



Chart 039 i Identifier Table Manipulation Phase 
ITABPRNT 



IEX20 



Microfiche 
IEX20 



KRITITAB 

♦ 038* 



*****B I********** 



CLOSE SYSUT3 



* XCTL TO 



.♦ SOURCE *. NO GENTRIES IN *. YES 

. SPECIFIEO? .*.... ♦. BLOCK .* 

*. .* . *.PR0CESSED.* 



*****C2*********i 

* SET RAID TO 
*NEXT I TAB ENTRY' 

* IN ALPHABETICAL' 

* ORDER. 



BA *. *****B5*********; 

.* *. *PRINTITR 

.* LAST *. NO * 

(*. LINE .* X*PR!NT LAST 

♦ . PRINTED .* * (CALL PRI 

* YES 

C* "♦. 

) .** LAST **. YES 
.*. ITAB BLOCK .* 

♦ .PROCESSED.* 



*****D 1*********. 

♦ GET ADDRESS OF 
♦NEXT ITAB BLOCI 
♦FROM ATAB. GET 

♦ BLOCK LENGTH 

♦ FROM HEADING 



BLOCKS 
WRITTEN 
. OUT? 






3 
rt 



BLOCK S 
WR ITT EN 
. OUT? 



*****0 i********** 

♦ USING ATAB * 

♦ ACDRESS THE * 

♦ CORRESPONDING ♦ 

♦ BLOCK IN ITAB * 



♦ CONVERT ♦.. 
♦SURROUNDING PBN^ 

* (FROM PBTAB1) * 



♦ < FROM HEADING ♦ 

♦ ENTRY) AND M0VE+ 

♦ TO PRINT AREA ♦ 



.♦IDENTIFIER- *. NO 

*. ALL-PURPOSE .♦ 

♦ IDENTIF. .* 



.♦IDENTIFIER * 
[♦. TYPE 

♦.SPECIFIEC.* 



♦MOVE SYMBOL IR ♦ 

♦OR B TO WORK TO* 

..X^SHOW IDENTIFIER* 

♦ TYPE ♦ 





*****(: 2********** 

♦ MOVE PBN TO * 
...X+ PRINT AREA ♦ 






UNO 
ENTI 


OF *. 

FIER .* 

VARIABLE 




* LINE (CALL * 

* PRINT) ♦ 
***************** 


SWITCH ARRAY, 
PROCEDURE OR 
CODE PROCEDURE 


SIMPLE 


STRING OR 
LABEL 


*****F1********** 
♦CONVERT ♦ 


*****F3 ********** 

♦ MOVE SYMBOL * 

♦ S»A, P CR C TO * 
*. WORK TC SHOW * 

♦ IDENTIFIER KIND+ 

***************** 










*****f ;•********* 

♦ MOVE SYMBOL T ♦ 
♦OR L TO VORK TO* 

♦ SHOW IDENTIFIERS 

♦ TYPE ♦ 

***************** 


♦ CONVERT PBN TO ♦ 

* EDCDIC * 



MOVE 

SURROUNDING PBN) 
TO PRINT ARE 



♦CONVERT PARAM/ ♦ 
♦COMP/DICEN. COUNT 
♦ANO MOVE TO WORK 



TRANSLATE 
EXTERNAL NAME, 
CONVERT DISPL. 



NO .♦IDENTIFIER * 
...... = FORMAL 

♦ .PARAMETER .♦ 



*****H5****«***i 
MOVE SYMBOL 
IR V TO WORK 
SHOW CALL B' 
NAME /VALUE 



'AND SLRROLNDIN 



♦♦♦♦♦J5 ***♦♦♦♦♦« 
♦ENOVAR2- SHIFT 

♦ ITAB BLOCK 
,X^ UPVARD TO 

♦OELETE IOENTIF. 

♦ PROCESSED 



Chart 040 » Diagnostic Output - IEX21 

Overall Flow - Error Message 
Editing Routine (IEX60000) 



Microfiches IEX21-1 
and IEX21M-1 



****A1**» ****** 



(SEE CHARTS 
041-043 
FOR DETAIL) 



*LOAC ADDRESS OF* 
♦FIELD CONTAIN- * 
*ING MESS. POOL * 
*ANC ADDR. TABLE* 
*TAeLECADDRESSES* 



.* *. NO 
*. SYSPRINT .* 


* AORESS LAST * 
..X* ERROR POOL * 


* YES 




* ADDRFSS ERROR * 

* PCOL MESSAGE * 
♦POOL AND AORESS* 

* TABLE * 




.*' ERROR **. YES 
*. PCCL EMPTY .* 


*************** 


* NO 




* GET ERROR * 

* NO. AND FIND * 

* MESSAGF POST * 

* ENTRY * 








'. * ASSEMBLE * 
♦MESSAGE TEXT IN* 








; .,•*■'■'•••,.. 






♦ .OPERATIVE.* 






* ******H3 *********** 






* WRITE MESSAGE * 
ON SYSPRINT 


* WRITE MESSAGE * 

ON CONSOLE 

* TYPEWRITER * 






'. NO .*ERRCR POOL ♦. 
....*. ENTRIES .* 
*. PROC .* 







/£ --s 



Chart 041 i Diagnostic Output - IEX21 

Error Message Editing Routine 



Microficne IEX21-1 



****B l********** 

POOL AND * 

ACOR .TABLE * 
ADDRESSES TO * 



<ERET = WDIRET1 * 
(P/I EXIT FOR * 

DIRECTORY) * C0T18 



OP ER AT IV EDI 



****C3******* 



► ADCRESS ERROR 1 



..X* RETURN 



►DIAGNOSTIC *. 

LISTING 

► .HEADLINES.* 

♦PRINTED* 



'MOVE HEADLINES 



Chart 042 t Diagnostic Output - IEX21 Microfiche 
Error Message Editing Routine IEX21-1 



► ADDRESS NEXT 
* ERROR PCOl 

► ENTRY 



C-ET 


C2 ****** 

CORRESP 


HE 


SS. PCOL 




Y UTH A 


OF F 


*ROR AOR 




TABLE 



* TRANSF. ERROR * 
< NO. SF VERITY * 
CODE AND * 

■SEMICOLON CCUNT* 
' TC V.0RKAREA * 



*****F2 ********** 



0) 



o 



ACCOPC TO *. 1000 
ACTION .* 

. ccrE .* 



* TRANSLATE * 

* MESS.TO INCLU0E* 

* USER'S * 

* CHAR. CHANGES * 



..X*A0DRESS IN WORK* 



► MOVE SOURCE 

* TEXT TO WORK 

* AREA 



♦COT 10 * 

* TRANSLAIE AND * 
..* HOVE ALGOL *. 

* SYMBOL TO WORK * 

* AR EA * 



* MOVE PARTIAL 
.X*MESSAGE TEXT TC 

* WORK ARE* 



Chart 043 : Diagnostic Output - IEX21 

Error Message Editing Routine 



Microfiche IEX21-1 



OPERATING SYSTEM 
VIAPIROUT IN DIRECTOR' 
AT A PROGRAM 
INTERRUPT OR 
UNRECOVERABLE 
I/O ERROR 



•t**A5 ********* 



SYSPRINT >=RROR 



******C2 *********** 



nttlTE MESSAGE * 


* WRITE MESSAGE 


ON SYSPRINT 


CN CCNSOLE 




* TYPEWRITER 



.* ALL *. 
.♦ERROR PCOl *. NC 
*. ENTRIES .*.... 

*. PROCESSED.* 



♦ERET = WDIRFT2 

* (P/I EXIT FCR 

* PI ROUT IN 

* DIRECTORY) 



■ADDRESS KESSAG 

NO. 211 IN 

MESSAGF POCL. 



ERROR PATTERN 
STORED BY 
DIRFCTORY PIR^L'T) 



*. YES * XCTl TO IEX 



COT28 

****G 2 ****** 
* RETURN 



:***G5**, 
(TERMIN, 



* XCTL TO IPX 

* 51002 



Chart 044 : Scan III Phase - IEX30 
Overall Flow 



Microfiches IEX30-1, 
IEX30-2 and IEX30-3 



ITAB = IDENTIFIER TABLE 

SUTAB = SUBSCRIPT 

ARICSTAB = ARRAY IDENTIFIER STACK 

CRIDTAB = CRITICAL IDENTIFIER TABLE 

LVTAB = LEFT VARIABLE TABLE 



****A3********* 

* * 

* IEX30 * 



*****83 ********** 

* INITIATE 046* 

* GET PRIVATE * 

* AREA. REAC * 
*FIRST ITAe AND * 
♦SOURCE FECORDS * 
****** ** ********* 



**** 

X 
*****C3 ********** 

* GENTFST 046* 

* SCAN TO NEXT * 

* SIGNIFICANT * 

* CHARACTER * 



BETA, PI, PHI 
(OPENING OF A BLOCK 
OR PROCEDURE) 



EPSILCN 
(CLOSE OF A BLCCK 
CR PROCEDURE) 



.CHARACTER.*- 



STEP, WHILE 



*****£!*** ******* 

* B ETA 047* 

*P IPHI 047* 

♦READ NEXT ITAB * 

* BLOCK FROM * 

* SYSUT3 * 
***************** 

**** 

..X* C3 * 
* * 

**** 



*****£ 2********** 
*EPSILON 047* 

* DELETE THE * 

* CORRESPONDING * 

* ITAB BLOCK IN * 

* CORE * 
***************** 



*****£ 4* ********* 

*FOR 047* 

* SET SWITCH TO * 
♦INDICATE ENTRY * 

* TO FOR LIST * 

***************** 

**** 

. * * 

..X* C3 * 

* * 

**** 



*WHILF 047 * 

* MARK FSTAB * 

* FN TRY TO SHOW * 
*0P. IN FOR LIST* 
***************** 

**** 

* * 

..X* C3 * 



CIV IDE, POWER 



*****£ X********** 


*****G2********** 


*DIPOW 047* 


*D0 049 * 


* MARK ESTAB * 


* SET SWI TCH TC * 


♦ENTRY IF OP . IN* 


* INDICATE EXIT * 


* FOR LIST * 


* FRCM FOR LIST * 




* ♦ 


***************** 


***************** 


**** 


*♦♦* 


. * ♦ 


♦ * 


..X* C3 * 


. . X* C3 * 


* * 


* * 


**** 


**** 



*****G4+ ********* 
*ETA 049* 

* DELETE FOR LIST* 
IDENTIFIERS IN * 

* CRIDTAB * 

* ♦ 
***************** 



*****G5 ********** 

♦GAMMA 049* 

♦ TRANSFER CODE * 

♦ PROCEDURE * 
♦IDENTIFIER FROM + 

♦ INPUT TEXT ♦ 
***************** 

**** 



APOSTROPHE 



*****j i********** 

♦QUO TE 049* 

♦TRANSFER STRING* 
* INTERNAL NAME * 
♦FROM INPUT TEXT* 

***************** 

**** 
. ♦ ♦ 

..X^ C3 * 



♦READ NEXT MOD. * 

* LEV.l RECORD * 

* FROM SYSUT1 * 
***************** 



..X* C3 * 

* * 

**** 



*****J4*** ******* 
*OMEGA 050* 

* WRITE LAST ♦ 
♦LVTAB, SUTAB AND* 

* TEXT RCRDS. * 

* FREEMAIN * 
***************** 



*****j5 ********** 

*RHO 051 * 

♦REPLACE LAST ) * 
* BY A COMMA * 

***************** 

♦*** 

* ♦ 
..X* C3 * 

* * 
♦*** 



****K4********* 

* * 

* XCTL TO IEX31 * 

* * 
*************** 



4 



220 



\J 



Chart 045: 



Scan III Phase - IEX30 
Overall Flow 



Microfiches IEX30-1, 
IEX30-2 and IEX30-3 



*' BRANi 

ACCORD 

» OPERA" 



*****B2********** 

* SWITCH 051* 

* SET SWITCH TO * 

* INDICATE A - * 



EMIDELT -051* 

FR . OP . AND SC* 

COUNT. TURN * 
SWITCH/ ARRAY * 

SWITCH OFF * 



OPTR. ♦FOLLOWS 
.* ARRAY 

♦ .IDENT. IN 



ENTER ARRAY 



FOLLCVS 



► ENTER SLBSCRIP 
* IN SUTAB IF 
<• OPTIMZABIE. 



.♦FOLLOWS*. 
SUBSCRIPT 



* IN SUTAB IF 

* OPTIMIZABLE. 

* CLASSIFY FOR 



Y LETTER> 
T CHARACTER 
IDENTIFIER) 



DECIMAL POINT 



* FIND 

* CORRESPOND 
K ENTRY IN I 



TRANSFER 

IDE NT'S 

INTERNAL NAME 



♦ENTER IDENTIFIER 

* IN CR1CTAB IF * 

.X*IN FOR LIST ANO* 



* CONVERT THE 

* CONSTANT TO 
♦FIXED OR FL.PT. 
♦FORM. STORE IN 

* CONSTANT POOL 



♦ TRANSFER * 

♦ FOR THE NUMBER * 



Chart 046; 



Scan III Phase - IEX30 
INITIATE and GENTEST 



Microfiche IEX30-1 



*'. TEXT IN 
♦ . CORE 



.X^READ NEXT MOD. 



. PRECOMPILED . 



•READ NEXT ITA8 

BLOCK FROM 

SYSUT3 



'READ FIRST MOD 
EV.l RECORD 
FROM SYSUT1 



♦♦♦♦♦G !♦♦♦♦♦♦♦♦♦♦ 

♦ MOVE STANOARD ♦ 

♦ PROCEDURE ♦ 

♦ INTERNAL NAMES ♦ 



GENTEST 



SCAN MCD. LEV. 
EXT TC NEXT 
SIGNIFICANT 
CHARACTER 



OPERATORS* 
(SEE CESCR 



ADDRESS STORED AT SULTSTRT 
ANO NOTEW. NOTEV IS REFER- 
ENDCED BY WRITE SLBROUTINE 
WHEN FIRST SUTAB/LVTAB IS 
WRITTEN ON SYSUT3. SULTSTRT 
IS REFERENCED BY SUBS.HDLG. 
PHASE WEN SUTAB AND LVTAB 
ARE READ FROM SYSUT3. 



95^ DELTA 






♦ 04<3* NON-ZER 



♦LEV.l RFC. FRCP* 



CLOSE SYSUT3. 

* REPOSITION TO 

BEGINNING OF 



♦REAC FIRST ITAB*....> 

* BLOCK FROM ♦ 

♦ SYSUT3 ♦ 



Chart 047 s Scan III Phase - IEX30 

BETA, PIPHI, EPSILON, FOR, 
STEP, WHILE and DIPOW 



Microfiche IEX30-1 



EPSlLOf, 
*047* 



ITABHOVE CALLED .*. 

:e ENTRY TO THE SCOPE B2 *. 

.OSING THIS BLOCK. ITABMOVE .* ITAB *. 

NOT HAVE BEEN CALLEO IF .* INPUT FOR 1 

(PI OR PHI) HAS PRECEOED *. THIS BLOCK 
PROCEDURE IDENTIFIER *. STARTED .< 



(MOVE CONDITION CODE 
LETTERB. THIS INHIBT 
BRANCH BY THE LETTER 
TO ITABHOVE) 



►CHECK LAS1 
► INPUT. STAR 
* NEXT ITAB 



.* ITAB *. 
.* INPUT FOR * 
. THIS PROC. 



♦CHECK LAST ITAB* 



.♦READ OF*. 

► NEXT ITAB *. > 

BLOCK .*. 

► . STARTED .* 



•CHECK LAST ITAB* 
* INPUT. START * 
♦READ NEXT BLOCK* 



*****02*** ******* 



♦CHECK LAST ITAB* 
♦INPUT. START READ 
* NEXT ITAB BLK ♦ 



*****D3********** 



* ERASE ITAB 

* BLCCK FOR 
+CLOSED BLOCK C 

* PROCEDURE 



♦TRANSFER BETA, * 
* P.B.NO. STORE * 
♦I.G.NO. IN ZIGN* 



..X*CHECK LAST ITAB* 

♦ INPUT. START READ 

* NEXT ITAB BLK * 



*****E5*< 

* TRANSFER * 

* EPSILON AND * 

* P.B.NO. STORE * 
♦I.G.NO. IN ZIGN* 



THIS CAUSES THE 
LETTER ROUTINE 
TO CALL ITABMOVI 
ON RECOGNITION 
OF THE KEXT IDEN- 



KOVE CONDITION * 

CODE X>FO" TO 1 

LETTERB. * 



FSTAB = FOR STATEMENT TABLE 



(NEXT OPERANO. 
IS CONTROLLED. 
VARIABLE) X 

*****H !♦♦♦****♦♦* 
ZFORTEST = ♦ 
X'CO'. FSN * * 
FSN +1. STORE ♦ 
I.G.NO. ♦ 



*****H2********** 

♦ NOTE •STEP* IN * 

♦ FSTAB ENTRY. ♦ 

♦ TRANSFER STEP ♦ 



WHILE 








DIPOW 












♦ 047* 








♦047 ♦ 


♦ H4* 








♦ H5* 












* 








* 






OPERATOR 










SIDE 








FOR 


LIST 


.*. 


*****H4********** 






H5 *. 












♦NOTE 'WHILE* 










♦ FSTAB ENTRY. 






♦. ZFORTEST 


♦TRANSFER WHILE 






* 


X'OO' 



► MARK FOR STMT * 

* NOT COUNTING * 

* LOOP IN FSTAB * 



*****K5 ****♦»*♦** 



Chart 048 ;. Scan III Phase - IEX30 
ITABMOVE and ITABMOP 



Microfiche IEX30-2 



BETA 
PI PHI 
EPSILON 



****A2********* 



WAS LAST SYSUT3 OPERATION B2 *. 

AN ITAB READ .* *. 

.* *. NO 





Vyes '. 


******C2*********** . 

CHECK INPUT OF 

* CURRENT ITAB * 

BLCCK. 

* REA0C=I * 





:***B3********** 

>OVE CONDITION * 

CODE X'OO* TO * 

LETTERB * 



THIS INHIBITS A 
BRANCH BY LETTER 
TO ITABMOVE 



ZCURITLE CONTAINS LENGTH *****D2********** 
OF ENCLOSING BLOCK *PUT (ZCURITLE) * 

* IN HEAD OF * 

* CURRENT ITAB * 

* BLOCK * 



*****E2 ********** 

♦ ZCURITLE =» * 

♦ LENGTH OF CURR.* 
♦ITAB BLOCMFRCM* 

♦ HEADING) ♦ 



F2 ♦. 



I.E. IS THERE A GAP 

BETWEEN ENCL. ITAB BLOCK 

ANO CURRENT BLOCK. ZCURITEN* ZI TREC 

POINTS TO LAST ENTRY OF ♦. > ZCURITEN 

ENCLOSING BLOCK, ZITREN TO *. +11 

FIRST ENTRY OF CURRENT BLOCK *. .* 

"**YES 



*****G 2********** 

* MOVE CURRENT * 

♦ BLOCK TO END OF* 
♦ENCLOSING BLOCK* 



ZCURITEN NOW POINTS 1 
END OF CURRENT BLOCK. 
ZITREC POINTS TO FIR! 
ENTRY OF NEXT BLOCK 



ZCURITLE, 
ZITREC - 
ZCURITEN+11 



.* *. WRITE 

.* LAST *. CHECK 

.X*. SYSUT3 .* 

•.OPERATION.* 



******D5**< 

* CHECK LAST 
WRITF OP 01 
* SYSUT3 



NOTE END OF 
* LAST WRITE. 



♦POINT SYSUT3 TO* 
ADDRESS AT 

* NOTER * 



******G4* ********** 



****H4********* 
* RETURN * 



***************** 



Chart 049 ; Scan III Phase - IEX30 

DO, ETA, GAMMA, QUOTE, 
ICHA and OUCHA 



Microfiche IEX30-1 
(ICHA and OUCHA: IEX30-2) 



Chart 050 ; Scan III Phase - IEX30 
OMEGA, OTHOP 



Microfiche IEX30-1 



(CALLED BY ALL < 
ROUTINES WHICH* 
SCAN THE INPUT* 



GENT EST OMEGA 

*0 50* 



t**B4*********< 



. CHECK MODE .*.. 



*44*** e <5********< 

♦CHECK LAST REAC 
PROM SYSUT1 TO 
* ZIBRFAD * 



RANSFER OMEGA 



ANY ENTRIES . 






LAST BUF 






IN SUTAB X 






FILLED 1 






WORK AREA .*. 






CURRENT 






B3 *. 






OUTPUT 


B5 *. 










BIFFFR 






.* ZSUTAPO 


. YES 






ZOUR > 


*. NC 


*. > ZSUDAO 


• * 


..X* CHECK LAST * 


*• 


ZFILE1 


.*.. 



CLOSE SYSUT1 



(CALLED BY ALL ROl 
WHICH TRANSFER CHJ 
TO THE OUTPUT BUFF 

****D1****** 

* OUCHA 



******£ I*********** 



AT ENTRY, ZIPRUN POINTS TO THE BUFFER WHICH 
HAS BEEN PROCESS ED.WHILE ZIBREAO POINTS TO 
THE ALTERNATE BUFFER TO WHICH INPUT WAS INI- 
TIATED BY TFF PRECEDING CALL TO ICHA. 
AT EXIT.ZIERUN POINTS TO THF ALTERNATE BUFFER 
CONTAINING A NEW RECORD, AND Z INR (RFG.31P0INTS 
TC THE FIRST CHARACTER. ZIBREAO POINTS TO THE 
BUFFER INTO WHICH A FURTHER RECORD IS NOW 
BEING RFAD. 



ALL MOD .LEV. 2, 
TEXT IN ONE X 
OUTPUT BUFFER* 



ANY ENTRIES 
IN LVTAB 
BUFFER 



..*VRITE SUTAB C 



•BUFFER. ZIBRUN * 



»****£ i********** 



* WRITE L* 

* RECORD 

* SYSUT 


ST * 



►CHECK 

► CHECK L 



.♦BUFFER *. 
* ENDS IN * 
ARRAY SUB. 



*****G1*»* ******* 

* MOVE ZETA TO * 
♦LAST BYTE. ZOUR* 

* = ZOBWRITE-1 * 



T ENTRY, ZOBVOPK PCINTS TO THE eUFFER WHICH 
S TO BE OUTPUT, WHILE ZOBWRITE PCINTS TC THE 
LTERNATE BUFFER FRCF WHICH OUTPUT WAS INI- 
IATED BY THE PRECEDING CALL TC CUCHA. 
T EXIT, ZOBWORK POINTS TO THE NCW ARAILA6LE 
LTERNATE BUFFER AND ZCUR(REG.4) PCINTS TO 
HE FIRST FREE BYTE (-1 ) . ZOBWRITE PCINTS TO 
HE BUFFER FROM WHICH OUTPUT HAS BEEN 
STARTED. 



.* SUB. *. 
.♦EXPR. > 18 * 
. CHARACTERS 



•♦♦♦**F !♦♦♦♦**♦< 



MOVERRO 

!ORD ERROR 



MOVE MOD. LEV. 2 

TEXT FROf 

OUTPLT BUFFER 

TO BUFFER 1 



IRITE CN SYSUT3' 



******F3********' 



♦SUBSCRIPT) 



♦WRITE RECORD AT 
ZOBWRITE ON 
SYSUT2 * 



ANY CONSTANTS 
PUT IN CON-*. 
ST ANT POOL 



GENERATE TXT 

RECORDS OF 
CONSTANT POOL 



*MOVE SLBR.EXPR.* 

* TO ZOBWRITE. * 
♦REPLACE L. BR. ♦ 

♦ OR COMPA IN * 
♦ZCBWCRK BY ZETA* 



,***H3********** 



*****j 1********** 





♦ ZOUR = FIRST 


ZOBWRITE = FULL* 


♦BYTE FOLL. SU 


BUFFER. ZOBWORK* 


♦ EXPR. ZBRACK 


>= EMPTY BUFFER * 


♦ =ZCBVRITE 



FSNMAX = * 

-S.NO. SUCOUNT* 

SUTAB REC. * 



.VCOUNT = L 
REC. CO UN 

:suten = SI 



. SFIE TO 
RESTORE PIROUT 
(IN DIRECTORY) 
AS ERROR EXIT 



****J3*« 
XCTL TC IEX31 



♦****K !*******♦♦* 



. OPENDED BY 



♦♦♦**K3*< 

♦CHANGE C 

*NC. AND CISPL. * 

,X*IN ARRAY IDENT.* 



Chart 051 ; Scan III Phase - IEX30 

ARRAY, SWITCH, SEMIDELT, RHO, 
OPBRACK, COMMA and CLOBRACK 



*****B1*********# 
♦TRANSFER ARRAY * 



* 


* TRANSFER 


SWITCH = 1 * 


* SEMCCLCN C 


SFER SWITCH* 


* DELTA AND 



*SEPICCLCN COUNT* 



Microfiche IEX30-1 



Chart 052: 



Scan III Phase 
SUSCRITE 



IEX30 



Microfiche IEX30-1 



OPBRACK 
COMMA 
CLO BRACK 



***85 ********** 



' SUBR=ZBRACK 
■ (BEGINNING CF 
• SUB SC RI PT ) 



: OPPTR, CVR AND ADDENDR ARE 

REGISTERS HUCK AOORESS ENTRIES IN 
CRITICAL IDENTIFIER TABLE (CPIOTAB) . 
FACTOR AND ADDEND ARE LOCATIONS TO 
WHICH OPERANDS ARE MOVED FROM THE 
OUTPUT BUFFER. 



►**A3********** 



.* OPERATOR *. 
♦ .FOLLOWING 1ST. 

*. OPERAND .* 



«■ OPERATOR CTHER 



.♦BRACKET IN 1 
*. CECL. .* 



*051* 



.♦BRACKET IN *. YES 

ARRAY .* 

*. DECL. .♦ 



♦HOVE FIRST OPD.^ 

♦ AND SIGN TO * 
*• ADDEND. * 

* ACDENDR=OPPTR * 



054*(IF NON-INTEGER OPERAND 



*OPPTR=ADDR. OF * 

* CRIDTAB ENTRY * 

♦ IF OPC.CON.VAR.* 



FIRST 


AND 


*****C3 ********** 


*****C4*********^ 


C5 *. 






♦SUBMULT 05** 




CVR = OPPTR. * 


. * 1 ST * 
















* F2 * 




.*CVP=ACCF. CPID-* 




ACTOR (SIGN OF*X.. 


*. CONTROLLED 






* TAB ENTRY IF * 




OPD) * 


♦ .VARIABLE . 






*OPD. CCN. VAR. * 
























. (2ND OPD. 












. NON- INTEGER 












. OR OPERATOR) 












D3* *. 


*****D4********** 


*****D5******« 












* CVR = OPPT! 






.* OPERATOR ♦. 




MOVE TO * 


♦MOVE OPERAND 






♦.FOLLOWING 2ND.* 


♦ 


ADDEND *... 


♦ADDEND. MOVE 



. XHECK MODE 



.♦ OPERATOR ♦. 

► . FOLLOWING 2ND.* 

*. OPERANO .* 



* OPPT=ADOR.OF 
» CR IDTAB ENTR 

♦ IF OPO.CON.VA 



* ADDRESS FSTA 

* FNTRY CF NFX 
. .X*OL'TERMOST FNC 
. * FOR STMT. 



» SUBSCRIP1 
CONTAINS t 
*. ARRAY 



. .X*ZCLCBRA = X 



*CVR=ACDR. CRID-* 

* TAB ENTRY IF * 

* OPC. CON .VAR. * 



VAR. IN 

ENCL. 

SUBSCRIPT 



♦SUCRIDEl 
.X*CLASSIF\ 



* SUBSCRIPT ♦.YES 



'ENTER SUBSCRIP1 

< IN SUTAB IF 

< OPTIMIZABLE 



****G2********* 
♦ RETURN * 



♦MOVE OPERAND TO* 

* ADDEND. * 

* ADDENDR=OPPTR * 



►AND AODENO * 
>FCL. CUTS ID* 
k.FOR STMT .* 



*****J 1********** 

* ENTER ARRAY * 

* IDENT.IN * 

* ARIDSTAK * 
*ZBRACK=AODR OF ♦ 

* LEFT BRACKET * 



*****J2********** 

* ZBRACK = * 

* ADDRESS OF * 
♦COHMA IN OUTPUT* 

* BUFFER * 



. SUBSCRIPT > .* X*CLASSIFY ENCL. 

♦.18 CHAR. .* * FOR STMT(S) 

♦ . .* * ELEMENTAL 



*****J5*****« 
♦SUSCRITE 052* * 

* ENTER SUBSCRIPT* X* IDENTIFIER I 

* IN SUTAB IF * * ARIDSTAK 

* OPTIMIZABLE * * 



ADDENDR>OPPTR 




•ACDENDR < 


OPPTR 


ADDENDR=OPTTR. 






(1ST CPD.IS CCN 




.(2NC OPC. 




( .) (NEITHER OPD. 
































.5PDS.THF SAME 














ADDEh 


n XCON.VAR.O 














NOT= 


3 .*. 






*****H2********* 
















*CVR = ADDENDR. 




CVR = OPPTR 






.♦ FIRST *. 


♦SUTABENT 053 


♦ADDENDR =0PPTR. 




1CVE SIGN OF 






.♦OPERAND IS ♦. YES 










* MOVE SIGN CF 




2NC CPD. TO 






. CONTROLLED ...... 


♦El 


TER SUBSCRIPT 


* 1ST OPD. TO 




FACTOR 






♦ .VARIABLF .* 


*IN 


SUTAB UNDER * 


* FACTOR 


** 


************* 


♦ * 




*'♦*** X 


*** 


***;!;*»;»**« 



k**** J2 *********: 



****J3 ********** 



NO .* CRIOTAB 
*. PROC=SSFC. 



.* THERE Af> 

*. EMBRACIN 

♦ .SUBSCRIF 



* ZCLOBRA = X'FF'.< 

,.X*ADDR.OF OF RT. * 

* BRACKET IN < 

* OUTPUT BUFFER < 



^vw 



Chart 053 ; Scan III Phase - IEX3Q 
SUSCRITE and SUTABENT 



Microfiche IEX30-1 



Chart 054 : Scan III Phase - IEX30 
OPERAND and SUBMULT 



Microfiche IEX30-1 



SUSCRITE 
SUBMULT 



WSCRITE 

****A3********* 
* SUEKULT * 



.♦ADDENDR*. 







* CLASS 


FY POP * 


* ST 4 


EMENT * 


♦ ELEPEM 


ARY LOOP* 



X 




ADDRESS NEXT. 




(NON-INTEGER CPERAND 


CPEPAND X 


Bl *. 


OR OPERATOR) 


*****P3 *«*»»»*** 


* SUBR *. 




*)<CVE CFERANC TO 


POINTS TO * 


NO 




INTEGER 




* CVR«CPPTR 


OPERAND .* 


X 


* SUBR=SUBR+6 



'FACTOR AND *. 

*CCEND DECL. . 

>. OUTSIDE .* 

♦FOR STATEHE 



> ADDENDR ENDR . 



. CVR: ACOENDR . 



. CVR < OR = ADDENDR 



IF CVR=AOOENOR NOT = 0,9CTH 
OPOS. ARE THE SAME CONTROL \ 
IF CVR < ADDENDR, ADDENDR IS 
CnN.VAR. OF A NFSTFD FOR <;t» 



.♦OPERAND*. 
►A CRITICAL * 
ICENTIFIER 



* CLASSIFY THE * 

* FOR-STATEMENT * 
• X* ELEMENTARY LOOP* 

* IN FSTAB * 



►ICENTIFIER *. NO 

IS CONTROLLED.* 

* .VARIABLE .* 



•****C2 ♦♦♦♦♦*♦♦*! 

* (OPERAND NOT 
.X* CONTROLLED 

* VARIABLE) 



*CPPTR=«C0P. OF > 
* CRIDTAE ENTRY « 
*IF CPD.CON.VAR.1 



0PPTP:CVR 



(FIRST. OPERAND 



XCVE SECOND 

OPERAND TO 

FACTCR 



(NEITHER OPERAND IS 
OPPTR > CVR CON.VAR..OP BCTH CP« 

(SECONO OPERAND IS TH<= SAME CCN.VAR. ) 
CONTROLLED VARIABLE) 



♦ ENTER SUBSCRIPT* 
*IN SUTAB UNDER * 

* F.S. NO. * 



SUTAeENT 



CLASSIFY FOR 

STATEMENT 

ELEMENTARY IN 

FSTAB 



****G 1********* 
* RETURN * 



WAS SUTAB BUFFER 
FILLED BY PRECEDING 
ENTRY AND VRITE 
SUBROUTINE CALLED 
(INDICATED IF POINTER 
ZSLTAPO WAS SET 
TO SUTAB START)? 






►**K3 ********* 



SUTAB 
LENGTH 
REACHED . 



<K <=NCL. f 

CEMENTS I 

OPTIM. 



CHECK LAST 

lVTAB WRITE ON 

SYSUT3 



Chart 055 : Scan III Phase 
SUCRIDEL 



IEX30 Microfiche IEX30-1 



Chart 056 ; Scan III Phase - IEX30 Microfiche IEX30-1 

Overall Flow - Identifier Handling and IEX30-2 



(FRCM GENT EST (046) 
ON RECOGNITION OF 
A LETTER) 



(I.E. NC OPERANDS 
PRECEDING THE 
ARRAY IDENTIFIER 
IN THE SUBSCRIPT 



.♦IDENTIFIER *. 

*. PRECECED BY . 

*. LEFT .* 

*.BRAC* 



♦****B3 ********** 

* LETTER 057* 

* SEARCH TO END * 

* OF IDENTIFIER * 



♦LETTER 1 057* 

♦TRANSFER IOENT.* 

.X* INTERNAL NAME ♦ 

♦ FROM I TAB * 



♦ ZSUP 






♦ZBRACK + 1 


IN 


IRST 


* EM BR AC IN 




* SUBSCR 


PT 





.♦ ♦. ****E4******** 

.* ENC OF *. YES * 

♦ . SUB. EXP. .* X* RETURN 

*. REACHED .* * 



*****F3 ********** 



*SET ZMS TO LAST* 

* ENTRY IN * 

* CRICTAB * 



*****G3****^**** 








*CCMPARE ZMS AND 
* ZSUPO * 








**************** 








H3 *. 

.*" SAME ♦. 
*. IDENTIFIER .< 

* YES 


NO 


*****H<i********** 

♦ SET ZMS TO NEXT* 
...X* PRECEDING *... 

* CRIOTAB ENTRY * 

***************** 




J3 "*. 
•*IS ZMS *. 

*'. CCNT ROLLED '. 
♦ .VARIABLE .* 


MO 


.* ZMS *.. 
.♦CHAINED TO *. YES 
...X*. A PRECEDING .*... 
*.. ENTRY .* 


* SET ZMS T C ♦ 
....X* PRECEDING ♦. . . . 

♦ CRIOTAB ENTRY * 



F2 ♦. 


*****F3********** 


.♦OPERAND*. 


*IF JUMP OUT OF * 


.♦AN INTEGER *. 


* FOR STMT, * 


. LEFT VAR IN .* 


* CLASSIFY FOR ♦ 


♦ .ITERATED .* 


* STMT. NON- * 


♦.STMT .* 


* COUNTING LOOP * 


♦. .* 


***************** 



****^G2 ********** 



LABEL CP SWITCH 



CRITICAL IDENTIFIER 
CRITI 



(CLASSIFY FOR STMT. NORMAL 
IF OPND IS 
ELEMENTARY IF OPNC 



♦CLASSIFY OUTER * 
♦FOR STATEMENTS * 
*IF SAME IDENT. * 

* OCCURS IN FOR * 

♦ LISTS. * 



> CLASSIFY FOR < 

* STATEMENT < 

* ELEMENTARY IN * 

► FSTAE * 



JpS^ 



Chart 057 : Scan III Phase - IEX30 

LETTER, IDENT and FOLI 



Microfiche IEX30-1 



Chart 058 : Scan III Phase - IEX30 

NOCRI, PROFU and SWILA 



Microfiche IEX30 



* CHECK LAST IT/ 

* INPUT. READ 

* NEXT BLOCK 



' IDENTIFIER'S * 

■ INTERNAL NAME * 

FROM ITAB * 



* MOVE SCANNED 

* CHARACTERS TO 
► ZItEX 



♦. CHECK MCDE .». 



..X*ENTER IDENT. I 
♦CRIDTAB IF Nt 
* AN ARRAY 



♦ DELETE ENTRIES ♦ 

♦ IN ARICSTAK. ♦ (TERMINATES 
♦ZFORTEST=X'00' ♦ SUBSCRIPT 

♦ ♦ OPTIMIZATION) 



*****D4* «******♦♦ 



.♦OPERAND^. 
.♦AN INTEGER ♦. 
.LEFT VAR. IN . 
♦ .ITERATED .♦ 



(SEARCH FCR A 
PRECEDING ENTRY 
FOR THE SAME 
IDENTIFIER) 



,X^ MOVF SIX 

♦ CHARACTERS MAX, 

♦ TO ZIDEX 



♦SEARCH. 

♦ THE 

♦ IDENT 



♦ ENTER IOENT. IN+ 
♦LVTAB FOR EACH ♦ 

♦ ENCL. FOR STMT.^ 



♦ .STAT 


PANO ♦. NO 
EMENT.+ 


*• 


♦ YES 


♦OELCRIV 


061+ ! 


♦ MARK ENCL. FOR ♦ 
♦STMT(S) NCRMAL.^ 
♦DELETE CRIDTAB ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



[TAB FOR+ 

:fier ♦ 



*****G1********** 

♦ ACCRESS all- ♦ 
♦PURPOSE INTERNAL 
♦NAME AT ZALLPU ♦X . 

♦ SWITCH TO ♦ 

♦ SYNTAX CHECKINGS 



RECORD ERROR 



(DECLARED REAL, INTEGER CR 
BOOLEAN VARIABLE OR 
ARRAY IDENTIFIER) 



ZIGNDECR IS THE I.G.NC. 

OF THE SCOPE (BLOCK, 

OR FOR STMT) WHERE THE LABEL/ 

SWITCH IS DECLARED. ZIGNEMBR 

IS THE I.G.KO. OF THE .SCOPE 

WERE THE LABEL/SWITCH OCCURS 

IN A STATEMENT 



i 

Q 

H 
ft 



.♦ACCORD. TO ♦. 
♦ . IDENT' S 
♦ .CLASSIF. .♦ 



(IDENTIFIER'S CLASSIFICATION 
IS DETERMINED BY THE SPECIAL 
USE BITS OF THE IDENTIFIER'S 
CHARACTERISTIC IN ITAB) 



SWILA 
♦058+ 



♦ ZIGNDECR * * 

♦ I.G.NO. IN ITAB* 

♦ HEACING ♦ 

♦ ZIGNEMBR - ♦ 
♦CURRENT I.G.NO. ♦ 



rES .GENTRY DECL.+ . 

,..♦. IN THIS . 

♦ . BLOCK .♦ 



.♦ ITAB ♦. 
.♦ ENTRY A ♦. 

PROC. OR 
♦. FORMAL .♦ 

♦PARAMETER 



ZIGNEMBR=ZIGNDECR 
(LEGAL JUMP WITHIN 
A SCOPE) 



(CRITICAL I DENT. - 
IN FOR LIST OF J 
NC LOSING 
OR STATE ME NT> 



(FROM GPTAB ENTRY 
CORRESPCNOING TO 
ZIGNEMB) 



M GPTAB ENTRY) 



J3 ♦. (JUMP OUT OF< 
.♦ ♦.FOR STMT) 

* CURRENT ♦. YES 
SCOPE IS .♦ 

♦ .FOR STMT .♦ 



MARK THE FOR » 
STATEMENT NOT A* 
COUNTING LOOP « 

IN FSTAB ♦ 



***** K 3*4******** 

♦ ZIGNEMBR « ♦ 
♦I.G.NO. OF NEXT* 

♦ ENCLOSING SCOPES 



SPECIFY ERROR 



. SCCPF TF 
HIGHER 
I. G. NO.). 

J"! *. 
.♦IDENT. ♦. 
NO .* IN SWITCH ♦. 
...♦. DECLARATICN .♦ 



Chart 059: 



Scan III Phase - IEX30 
CRITI 



Microfiche IEX30-1 



CRITI 
*059* 



FOR LIS! 

*****B2 ♦♦*******i 
*CRIMA 



♦ENTER IDENT. 
♦CRIDTAB IF NC 
* AN ARRAY 



. OPERAN0 IN ITERATED 
X PART OF CURRENT 
.♦.FOR STATEMFNT 



.*. ZFORTEST 



( I.E. SEARCH CRIDTAB TO 
DETERMINE IF THE SAME IOENT 
OCCURS AGAIN IN THE CURRENT 
FOR LIST OR IN THE FOR LIST 
OF AN ENCLOSING FOR STATEMENT)' 



IRCH CRIDTAB 

OR EARLIER 

' FOR SAME 

NTIFIER 



* FIND CRIDTAB ■ 

* ENTRY REPRES. ■ 

* SAME IDENTIFIER' 



.♦CURRENT*. 
.* OPERAND ♦. N 
. FOLLOWED BY .♦ . 



♦CURR. FOR STMT 

♦ AN ELEMENTARY 

* LOOP IN FSTAB 



.* ID. IS 
, CON.VAR. I 
♦ .FOR LIST 



***** E 5* 

♦ CLASSIFY FOR 

♦ STATEMENT -A 
,X*NORMAL LOOP II 

♦ FSTAB 



(SAME IDENTIFIER OCCURS 
IN SAME FOR LIST OR IN 
FOR LIST OF AN EN- 



YES .+CON.VAR. IN*. NO 

*. CURRENT FOR .*.... 

*. STMT .♦ 



*****F4********** 

* MARK FSTAB * 
♦ENTRY OF CURR. ♦ 

♦ FOR STMT TO ♦.. 



.♦CRIDTAB*. 
.* ENTRY *. 



<****G2********* 

LASS IFY ENCL. 

FOR STMT A 

NORMAL LOOP IN 



IDENTIFIER IS 
CON.VAR. IN 
CURRENT AND 
ENCL. FOR STM 



* MARK. FSTAB 

* ENTRY OF ENCL. 

* FOR STMT TO 
♦SHOW ASSIGNMEN1 

* TO CON. VAR. 



.♦EARLIER*. 
.♦ CRIDTAB ♦. NO 
l-.ENTRY CHAINED.*.... 
♦ .TO PREC. .* 
♦ .ENTRY. ♦ 



♦.CON.VAR. .* 



. CURRENT FOR .♦. 



(SAME IDENTIFIER 
OCCURS THICE IN 
CURRENT FOR LIST) 
*****j3****+****» 

* CLASSIFY THE * 

* CURRENT FOR ♦ 

* STMT A NORMAL * 

* LOOP IN FSTAB * 



.♦EARLIER*. 

.* CRIDTAB *. N 

<*. ENTRY CHAINED.*. 



* LOOP IN FSTAB * 



(• 



Chart 060; 



Scan III Phase - IEX30 
CRIMA 



Microfiche IEX30-1 









I DENTS. ^ 


.*. 






CRITICAL 
ITAB) 






*****B4* ********* 


*****B5********** 


.♦OPERAND*. 




* CLASSIFY FOR * 


♦CRIFODEL 061* 


.* IS ARRAY 


. YES 


* STMT NORMAL ♦ 






. IDENTIFIER 




..X* LOOP IN FSTAB *.... 


....X*DELETE CURRENT * 






* ZFOREST=X'00« ♦ 


*FOR LIST I DENTS* 








* IN CRIDTAB. ♦ 


*. .♦ 




***************** 


***************** 



(OPERAND IN FOR LIST 
BUT NOT CONTROLLED 
VARIABLE) 



ZFORTEST .* 



♦ CRETE CRIDTAB * 
♦ENTRIES OUTER- ♦ 
♦MOST FOR STMT. * 



**. INTEGER .*" """ 


* NO 


►****E2^******»** 

CLASSIFY FOR * 

► STATEMENT AN ♦ 

ELEMENTARY LOOP* 

IN FSTAB * 




********* 



****F2***** : 

INTERNAL Ni 
IN CRIDTAB MARK- 
CON. VAI 



D3 *. 

OPERAND *. NO 
IS AN ...... 

. INTEGER .♦ 



*****D4******** 



.♦CURRENTS. 
* FOR STMT ♦. YES 

NESTED IN .♦ 

». ENCL. .♦ 
♦FOR STMT 



*****F3 ********* 

* ZFORTEST » 

* X«80« (NEXT 
♦IDENTIFIER NOT 
♦CONTROLLED VAR) 



ENTER ID'! 
INTERNAL N 
N CRIDTAB SHOW' 



ENTER ID'S IN 

LVTAB UNDER 

ENCL .FOR STMTS 



..♦DELETE CRIDTAB < 
♦ENTRIES OUTER- * 
*MOST FOR STMT. * 



ARK IDENTIFIER* 

CRITICAL IN * 

ITAB * 



♦♦**J3 ********* 
* RETURN * 



I: / 
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CRIFODEL, CRIFLOW and DELCRIV 



Microfiche IEX30-1 



Chart 062: 



Scan III Phase - IEX30 
LETRAF and WRITE 



Microfiche (LETRAF s IEX30-1 
and WRITE: OEX30-2) 



****A1******4 






****A3********* 






****A5********< 
* DELCIV 


CR 1FODEL 


J 




^ 


CRIFLOW * 






***** X 




(NO MORE CRIDTAB ENTRIES 
FOR CURRENT FOR STMT) 




• 










Bl *. 

.* LAST * 

.* CRIDTAB 


•;,1 


****B2********* 
X* RETURN * 


.;• 


B3 *. 
* ALL *. 
RIOTAB FOR*. Y 

ONE FOR .* 


ES 


*****B4********** 
♦OELCRIC 061* 


*****P5********4 
* ADORESS FIRST 




*.CURR. for 
*.STHT..* 




* STMT. NORMAL. * 
♦DELETE CRIDTAB * 





. DOES THE SAME IDENTIFIER 
. OCCUR IN THE FOR-LIST OF 
X ANOTHER ENCL. FOR-STMT 



.* ENTRY *. 
• *C FA IN ED TO * 
*. AN EARLIER 



SAME IDENT.) * YE S 



*****£ x******** ** 
♦ DELETE THE LAST* 



ADDRESS FIRST < 

CRIDTAB ENTRY J 

(ZFCCRI) * 





*****E3********** 


ENTRY TO 


* TFR. IC'S REL * 


SHOW NO 


* ITAB ADORESS * 


EARLIER 


♦FRCP 1ST TO 2ND* 


ENTRY) 


* ENTRY. * 




***************** 



► .ENTRY FOR.* 



*****f.5 *********) 

* CLASSIFY THE 

* CORRESPONDING 

* FOR STMT A 
♦NORMAL LOOP IN 



*****D5 *********: 

* MARK THF 

* IDENTIFIER 
*NON-CRITICAL II 

* ITAB. ADDRESS 

* NEXT ENTRY 



CRIDTAB *. 
ENTRIES 
.PROCESSED.* 



OELETE ALL 

ENTRIES IN 

CRIDTAB 



(FROM THE FSTAB ENTRY OF THE 
FOR STMT NO. IN THE CRIDTAB 
ENTRY) 



WAS LVTAB BUFFER FILLED BY 
PRECECING ENTRY AND WRITE 
SUBROUTINE CALLED (INDICATED 
IF POINTER ZLEVA WAS SET TO 
LVTAB START) 



VRITE .* *. REAP 

CHFCK .* LAST *. CHECK 

SYSUT3 
♦.OPERATION.* 



♦CHFCK LAST ITAB* 



.* VRITE i 
, SUBROUTINE 
*. CALLED .' 



*****E2 ********** 
*ENTER F.S.NO.CF* 

* CRIDTAB ENTRY * 
*AND IDENT'S DSA*X. 

* ADDRESS FROM * 

* ITAB IN LVTAB * 



. ,X*MARK EMBR. FOR 



******05 ******** 
NOTE END r>= 
* LAST READ. 
STORF AT 
* NCTER 



CHECK LAST 

»SUTAB WRITE Or 

SYSUT3 



t*****£5 *********** 

♦POINT SYSUT3 TC* 

ADDRFSS AT 

♦ NOTFW ♦ 



»*****F5 

WRITE SUTAt 

* LVTAB REC. 

SYSUT3 1 

* NOTEW 



NO .* ENTRY FOf 
,..*. NESTED Ft 
*. STMT 



****G5 ********* 
* RETURN * 



*****G2*** ******* 

♦ ADORESS NEXT * 
♦EARLIER CRIDTAB* 

♦ ENTRY FOR AN *X. 

♦ ENCL. FOR STMT ♦ 



WRITE LVTAB 
BUFFER ON 
SYSUT3 



•***G4********* 
* RETURN * 



* WRITEM = 1 

* (LAST SYSUT3 
♦OPERATION WAS < 

* WRI TE ) 



****H3********** (DECREASE THE RELATIVE CRIDTAB 



UPDATE THE 

CHAINING * 

ACCRESSES IN * 

THE FOLLOWING * 

CRIDTAB ENTRIES* 



ADDRESSES IN ENTRIES CHAINED 
TO EARLIER AND/OR SUBSEQUENT 
ENTRIES FOR THE SAME IDENTIFIE 
BY THE LENGTH OF THE ENTRIES 
TO BE DELETED FOR THE OUTER- 
MOST FOR STATEMENT. (SEE K3) 



TOP OF 

CRIDTAB 

. REACHEO . 



CLASSIFY THE * 

'OUTERMOST ENCL.* 

FOR STMT. A * 

'NORMAL LOOP IN * 

FSTAB * 



****J2****4 

* RETURN 



SHIFT CRIDTAB ♦ 
INTRIES UPWARD * 
TO DELETE THE ♦■ 
ENTRIES FOR OUT- 
MOST FOP STMT+ 



Chart 063: Scan III Phase - IEX30 



Microfiche IEX30-2 



Overall Flow and Number Handling 



Chart 064; 



Scan III Phase - IEX30 
DIGITO and DIGIT19 



Microfiche IEX30-2 



-046) A3 *. 

.♦'according'*. 



***** C I********** 
*0TH0P0 * 

* TRANSFER * 
..* INTERNAL NAME * 

* OF INTEGER * 



*****C2********** 

*SCAO * 

..* LOAD IN FL. * 



*. CHARACTER 



DECIPAL. POINT 



*****F 1********** 

♦ CONVERT INTEGER* 
*TO FIXED POINT * 

* IN RBIN * 



» HOVE MANTI SSA * 

* TO NUMBER. * 
k PEXCORR = NO. « 

* OF DIGITS * 



|.****E2********* 

► RECORD ERROR 
* NO. 83. WIVE 

► INTEGER TO 



* fCVE INTEGER * 
►PART TC NUMBER.* 

* REXCCPP = NO * 
> DIGITS * 



*****F3********** 



*****H2********** 

* DECREASE * 

* REXCORR BY * 



»****J2 ********** 




CONVERT NUMBER * 




* TC NORMALIZED * 




FL.PT. CONSTANT* 


* INTERNAL N 


* IN XFLCAT * 


* TC O/P TEX 



►♦G*********** 



***** J 4********** 
* MOVE EXPONENT * 
*TO SCAWORK AND * 



*****B 1********** 

* SET RTO TO * 
♦ADDRESS 19-BYTE* 

* FlaD NUMBER. * 

* REXCORR = * 



► SIGN .CHAR. 
* BEGINNING AT 



.* BRANCH * 
*. ACCORD .TO 
♦.CHARACTER.* 



APOSTROPHE) 



► INTERNAL NAME * 
* OF CONSTANT * 
' TO OUTPUT * 



5ECIKAL POINT 



SCALE FACTOR 



IDDRESS C 
CHARACTEF 
SOURCE -" 
REXCORR=0 



t*D3*******< 
>IGN. CHAR. 



.* BRANCH 



<*MOVE PRECEDING 

* ZERCJS) TC 

* ZIDEX 



*MOVE THE NUMBER*.. 



SPECIFY ERROR * 



...X*MOVE PRECEDING * 

. * DIGITS TO * 

* NUMBER * 

SCALE FACTOR 

*****B4* ********* 

...X*MOVE PRECEDING * 

* DIGITS TO * 

* NUMBER * 

► CI 



KCANGF INFUT * 



<ANY OTHER CHARACTER) 



ILETTER OR APOSTROPHE 



VE PRECEDING 
DIGITS TO 
NUMBER 



= THE NUMBER*. 



* LOAD IN FL. 1 



* MULTIPLY XFLOAT* 

* BY FL.PCINT * 

* EQUIVALENT OF *.. 

* REXCORR * 



Chart 065 ; Scan III Phase - IEX30 
DECPOIN 



Microfiche IEX30-2 



Chart 066; 



Scan III Phase - IEX30 
SCAFACT 



Microfiche IEX30-2 



n 



* ACCRESS 19-BYTE* 

* FiaD NUMBER. * 

* REXC0RR=0 * 



*«***C 1********** 

*RFI = AODR. OF * 

* NEXT SOURCE * 

* CHARACTER * 



»****01******** 

* SCAN TO NEXT 

* SIGNIFICANT 

* CHARACTER 



*****E 1********** 

*ZINR = AODR. OF* 

* SIGNIFICANT * 

* CHARACTER * 



.* *. =RFI .* ANY *. N 

«*. ZINR:RFI .* X*. SIGN. DIGIT .*. 

*. .* *.AT NUMBER.* 



*****C«********* 

* RFI = 7INR 

* -ADDRESS OP 
.X* SIGNIFICANT 

* CHARACTER 



(*MOVE PREC.OTGSi 
*TC NUMBER IF NC 
* SYNTAX ERROR 



SCALE FACTOR 



t*KOVE PREC.DIGS. 
*TC NLCBER IF NC 
* SYNTAX ERROR 



:*MOVE PRECEDING *. . 

* DIGITS TO * 

* NUMBER IF KO * 
*SYNTAX*ERROP**** 



.* SIGN. i 
(*. DIGITS AT 
*. NUMPER .* 



'SET 



Bl********** 
RTO TO 1?- * 
BYTE FIELD *ZER0 
NUMBER. * 

XFLOAT=l. * 
REXCORR=C * 



*ZINR = ADORESS 
*OF SIGNIFICANT 
* CHARACTER 



.♦SIGN. DIGIT* 
<*. FCLLOVING 
*.SCA.FAC. .< 



****B3******* 



..X*MCVE PRECEDING 



,X*MOVE PRECEDING 

* DIGITS TO 

* SCAWORK 



LEADING *. YES 



■SCALE +1 = SIGN- 



DIGIT 

FCLLOVS 

'.SC.FACT. . 



5VF DRECEDING < 
DIGITS TO * 
SCAHORK * 



Chart 067 ; Scan III Phase - IEX30 
INTCON and INTHAN 



Microfiche IEX30-2 



»ANSFER 2- BYTE* 

INTEGER * 

CONSTANT *X 

HARACT ERISTIC * 



INTEGER *. YES 



CONVERT 

•CONSTANT AT R 

TO BINARY IN 

R8IN 



*****B4********** 
♦TRANSFER 3-8 YTE* 

* ADDRESS OF * 
.X* CONSTANT IN * 

* CONSTANT POOL * 



* CCFFARE 

* CONSTANT 









INT HAN 8 










F3 * 
















.* CONST AN 






.* CONSTANT 


POOL 






X*. POOL NO = 



f RECORD ERROR 



.* 56-PYTE *. NO 
♦•CON. PCCL .REC..*.... 
*. FILLED .* 



♦CON. PCCL. RECORD* 



INTHAN5 



» ASSIGN NFW « 

► CONSTANT POOL < 

> NUMBER * 



*STCRE CONSTANT * 
*IN RBIN IN NEXT*. 
♦CON.POOL ENTRY * 



* DISPLACEMENT 



J&k 



Chart 068; 



Scan III Phase 
REALCON 



IEX30 



Microfiche IEX30-2 



REALCON 
*068* 






*****B4*** ******* 

* ADDRESS * 
♦POSITIVE POWER * 

* OF TEN TABLE ♦ 

* ZEXTABP * 



*****C !***♦**♦♦** 


♦ ♦ 


* RCNT - NO. OF ♦ 




*DGTS AT NUMBER.* 




* XFLOAT = 0. * 








♦REXCORR - RCNT.* 




SHIFT DEC. 




POINT RIGHT. . 




DECREASE 




EXPONENT IN . 




REXCORR BY 




NO. OF CGTS. X 






REALCON1 


Dl *. 


♦♦♦♦*D2*********^ 


.♦NO. OF ♦. 




.* CIGITS AT ♦. YES 









IS EXPONENT 



* ADDRESS 



: ALCON5 

*XFL0AT = XFLOAT* 



>ACK MANTISSA * 



<CNT = RCNT 
REXCORR = 
REXCORR + 



= VAIUE OF REXCORR 


* 


IGITS IN RANGE 1-7 




10*^+/-X)FR0M POWER 


♦ XFLOAT+ 


F TEN TABLE ZEXTABP 


* 



**G !*******♦*♦ 



MANTISSA 
IGITS > 7 
(OR 18) - 



***H2********** 






CONVERT ZPACK * 


Y = VALUE OF REXCORR 




TO BINARY AND * 


DIGITS IN RANGE >7, 


* XFLOAT = 


STORE AT ♦ 


WHERE Y=8,16,24t...64. 


♦ XFLOAT* 10** + / 


ZFLOFIEL + 4 ♦ 


(10**+/-Y) FROM POWER 
CF TEN TABLE ZEXTABP 


* 


*************** 


CR ZEXTABN. 


*************** 



PRECISION 
SPECIFIED 
(SHORT OR 
LONG) . 



*****J2******** 

* XFLOAT = 

* XFLOFIEL 

* (NORMALIZED) 

* XFLOAT = 

* XFL0AT*1 0**9 



ALCONS .*. 
.** XFLOAT 



REALERR1 
*****j5* 
*M0VER»r 



***K2********** 
PACK LAST 9 * 
DIGITS OF * 
MANTISSA AT *. . 



* J 



Chart 069 : Scan III Phase - IEX30 
REALHAN 



Microfiche IEX30-2 



Chart 070: Scan III Phase - IEX30 
INCOROP 



Microfiche IEX30-2 



LETTER 

SWILA 

DIGITO 

DIGIT 19 

CECPOIN 

SCAFACT 



*****B !♦♦♦♦♦♦*♦♦♦ 

* TRANSFER * 

* TWO-BYTE REAL * 

* CONSTANT * 
♦CHARACTERISTIC * 



CI *. *****C2*********' 

.* *. * CHANGE FSTAB 

.* *. YES * ENTRY TC SHOI 

. CONSTANT IN .* X* COUNTING LO0I 

*.FOR LIST .* * IMPOSSIBLE 

Dl *. *****02 *******»»< 

.* ♦ . * ROUND OFI 

* ♦ . SHORT * CONSTANT 

PRECISION .* X*XFLCAT AND LOAD' 

*. .♦ * IN RBIN 



*****B4*****> 

* STORE CONST/ 

* IN XFLOA 

* NEXT CONSTJ 

* POOL EN^ 



* TRANSFER * 
► CONSTANT POOL * 

* NO .AND * 

* DISPLACEMENT. * 



*****C 1****»***** 

* SEARCH TO ENO * 

* OF OPERAND * 

* (CONSTANT OR * 

* IDENTIFIER) * 



ROP2 

****D3*' 

KOVEPRC 



. CHECK MODE .*. 



.*. REALH7 

Fl *. *****F2> 

.* *. *TXTTRAF 

.* NEXT ♦ . YES * 

. TEXT RECORD .* X* GENERATE TXT 

*. FILLED .* *RECORO OF LAST 

♦ . .* ♦CON. PCOL RECCRD- 



* COMPARE * 

* CONSTANT IN * 

* XFLOAT WITH * 

* ENTRIES IN * 

* CON .POOL * 



*****F 1********** 

* TRANSFER SIX * 

* DECIMAL POINTS * 
*TO REPL. STRING *.. 

* INTERN.NAME * 



ft) 

H 
ft 



REALHll 

****4tH2 ♦♦♦♦♦♦♦♦♦ 
♦ MOVERRO 



.*. 


REALH10 .♦. 




J2 ♦. 


♦ END OF ♦. 




CONSTANT ♦. YES 


.♦ CONSTANT 






REACHED .♦ 


♦. N0»255 






♦ GENERATE TEXT 
♦RECORD OF LOAD 
♦CON. PCOL RECORD' 



Chart 071 : Diagnostic Output - IEX31 

Overall Flow - Error Message 
Editing Routine 



Microfiches IEX31-1 
and IEX31M 



**A 1********* 

IEX31 * 

* 

************* 



****A3********* 

* 

IEX 60000 * 

*************** 



*****B1********** 
*L0AC ADDRESS OF* 

* FIELD COMT. * 

* MESSAGE POOL * 
*ANC ADDR. TABLE* 

* ACCRESSES * 
***************** 



*****B4* 

* AORESS LAST * 
X* ERROR POOL *. 

* ENTRY * 

***************** 



***************** 
**** 

* Dl *.X. 

* * 
**** 



* ACTRESS ERROR * 
*P00L NFSS.PCOL * 
*ANC ACCP.TAELE * 



****D1*** ****** 

* * 

* XCTL TO IEX40 * 

* * 
*************** 



****04********* 

* * 

* RETURN * 

*************** 



FOR DETAIL OF IEX^CCCC 

SEE LOAD MODULE 

I EX 21- FLOWCHARTS CA 1-042 



*****F3 ********** 

* GFT ERROR * 
*NUPPER AMD FIND* 

* MESSAGE POOL * 

* ENTRY * 



***** 



***** 



* ASSEMPLE * 
*MFSSAGE TEXT IN* 

* WPPK AREA. * 



.* ALL *. 

.♦ERROR POOL * 

ENTRIES 

*.PRCCESSEC* 



:****H4****** 



************* 



234 



****K2********* 

* XCTL TO * 

* IEX51002 *) 

*************** 



K3 



*. 



c 



**** 

YES .* *. NO * * 

...*. TERMIfiATING .*....X* Dl * 

*. ERROR .* * * 

*. .* **** 



Chart 072 ; Subscript Handling Phase - IEX40 
Overall Handling 



Microfiche IEX40-1 



SUTAB = SUBSCRIPT TABLE 
LVTAB = LEFT VARIABLE TABLE 
OPTAB * OPTIMIZATION TABLF 



****A3 ********* 

* * 

* I EX 40 * 

*************** 



*****B3 ********** 

* * 
♦START 073* 

* GETMAIN FOP * 
♦SUTAB ANC LVTAB* 

* * 
***************** 



***************** 



(FLAG FOP DELETION 
ANY ENTRIES FOR 
SIB SCRIPTS IN 
NCN-OPTI SIZABLE 
FOR STATEMENTS) 



*****H3 ********** 
*SCAN SUTAB — 073* 

* DELETE ANY * 

* SUTAB ENTRIES * 
♦FOP NONOPTIMI- * 
*-ZABLE FOP STMTS 
***************** 



* SORT SUTAB * 

* ENTRIES BY * 

* ASCEND. F.S. NO. * 
***************** 



*********** 



* SORT LVTAB * 

* ENTRIES BY * 

* ASCEND. F.S .NO. * 
***************** 



*****H3 ********** 
*CPTAB 075* 

* CONSTRUCT * 

* OPTIMIZATION * 

* TABLE * 

***************** 



IEX40CC1=CCNTROL SECTION 
FOR INITIALIZATION CF 
COMPILATION PHASE 
(SEE CHART 078) 



*****J3 ********** 
♦TERM IN 076* 

* CLCSE SYSUT3 * 

* AND RELEASE * 

* MAIN STORAGF * 

***************** 



****K3********* 

* BRANCH TO * 

* I FX 40001 * 

* * 
*************** 



Flowcharts: Subscript Handling (IEX40) 235 



Chart 073 ; Subscript Handling Phase - IEX40 Microfiche IEX40-1 
Initialization and Search SUTAB 



»» ** A 1********* 



(ENTRIES ADDRESSED *****B3********** 
BY RSEARCH AND RS) * ACDRESS THE * 

* NEXT SUTAB * 

* ENTRY ANC THE * 



[RST ENTRY ADDRESSED C3 *. **> 

SEARCH) .*IS THE *. * 

.* FOR STMT *. NO *FLAG THE ENTRY 

*• OPTIflZABLF .* X* FDR DELETION 



*ERROR EXIT FDR * 

* CIRECTORY * 

* ROUTINES! * 



*. SUBSCRIPT.* 



01 : INTERMEDIATE 


* CHAIN TH 


ENTRY 


* ENTRIES 


11 : LAST ENTRY 




IN A SERIES OF ENTRIES 




REPRESENTING THE SAME 




SUBSCRIPT ENCLOSED BY 




ONE OR MORE NESTED 




FOR STATEMENTS. 





*****F1***«* 
*ERET=TERM1 



► ****G 1********** 

* ACER ESS SUTA6 * 

* WORK AREA. * 

► SPECIFY RECORD * 

* KEY SUTB * 



*****H1********** 



>****G3********** 

* ADDRESS START * 
>CF UNSCPTEC *ND* 

* S CRT ED SUTAB * 



SORT SUTAB BY * 
ASCENDING * 
F.S.NO. * 



Chart 074 ; Subscript Handling Phase - IEX40 
SORTLE, READ and SORT 



Microfiche IEX40-1 



SORTLE 
*074* 



* ADDRESS LVTAB * 

* WORK AREA. * 
♦SPECIFY RECORD * 

* KEY LVTB * 



****A2********* 
* READ * 



POINT SYSLT3 TO 
* BEGINNING CF * 
SUTAB AND LVTAB 
* RECORDS * 
(SULTSTRTJ 



*****D !*********» 


******02* ******** 


* ADDRESS START * 




*0F UNSORTED AND* 


♦CHECK THE LAST 


* SORTED LVTAB * 


READ OPERATION 


* AREAS * 


* * 



****F 1*********** 


*****F2******* 


CLOSE SYSUT3 


♦ RESTORE OVERL 


REPOSITION TO * 


* LAST WORD OF 


START) TYPE 


* PRECEDING 




* RECORD FRCK 




* SAVETAB 



*****B4***: 

* ADDRESS THE * 
♦UNSORTED SUTAB < 

* OR LVTAB * 



*****C4********** 

♦ COUNT THE * 

♦ ENTRIES FOR * 

♦ EACH FOR-STMT * 

♦ IN ENTRY COUNT * 

♦ TABLE * 



*****D4********** 

♦ IN THE ADDRESS ♦ 
♦TABLE ENTER THE* 

♦ I ENTRY COUNTS * 

♦ (R EC .LENGTH) * 

♦ UNDER F.S.NO. ♦ 



♦ ADDRESS FIRST * 

* ENTRY IN * 
♦UNSORTED SUTAB * 



G2 *. 


*****G3*******»* 


****«G4********** 


.* ALL *. 


♦ RSTART » RST ART* 


* MOVE ENTRY Tn ♦ 


SUTAB /LVTAB*. NO 


*+ RECORC LENGTH* 


*(ZADSTA«OISPL. * 


RECORDS .*... 


...,X*SAVE LAST WORD * 


* IN ADDRESS ♦ 


. READ .* 


♦OF NEW P.EC. AT * 


* TABLE ENTRY * 




* SAVETAB * 


♦ CORRESP. TO ♦ 




***************** 


♦♦F.S. NO. )****♦** 


* YES 




ZAOSTA* 

START OF . 
SORTED TABLE 



► ADD ENTRY 

► LENGTH TO 
►DISPLACEMENT Il> 
* ADDRESS TABLF 



Chart 075 ; Subscript Handling Phase - IEX40 
OPTAB 



Microfiche IEX40-1 



Chart 076 : Subscript Handling Phase - IEX40 
TERMIN and OTACHA 



Microfiche IEX40-1 









*FIND NFXT 
* ENTRY HI 
*HIGHFR F.S. 



:**B3 ********** 
CRESS FIRST * 
ENTRIES IN * 
CRT EC SUTAB * 



.♦F.S .NO.*. 

* in sutab *. 
♦ .entry: f.s .no.. 

"•.ENTRY.*" 



IOVE THE SUTAB 
EKTRY TC THE 
OPTAB BUFFER 



.* SUTAB * 
* FACTOR = 

LVTAB 
*. IDENT. 



* STATE KEN 
, .X+ELEMENTARY LO0P< 

* IN FSTAB 



(SAME SUBSCRIPT 
CONTAINED IN 
AN ENCLOSED 
FOR STATEMENT! 



.YES .*LVTAB ENTRY*. 
.♦.FROM SAME FOR.* 
*. STMT .* 



'*. SUBSEQ. .*' 
*. ENTRY.* 



* SUBSEQUENT * 

♦INVERT ENTRY'S < 

* CHAINBITS * 



* AODRESS NEXT 



.* SUBSCRIPT * 
X*. ENTERED IN 
*. OPTAB .* 



NO SUTAB 
*076* 



>**Hl********** 
NOOP =1 * 



****A4* ******** 
* OTACHA * 



*****B3 ********** 



C2 *. 


*****C3 ********** 


******C4******M*** 




♦OTACHA 076 * 




OPTAB *. YES 
BLFFER .* 




* WRITE OPTAB * 


. .X*WRITE COT LAST * 


FILLED .* 


* OPTAB PECORO * 


* ZOTAFILL ON ♦ 


'"*..*"* 


♦*♦**♦♦*•****•**• 


SYSUT3 



* INTERCHANGE * 

* OPTAB BUFFER * 

* ADORESSES * 

* BETWEEN 20TAFILI 

* ANO ZOTAWRI * 



:****E2*********> 



RETURN 



******F2*»*. 



RELEASE CAIN 



.* PROGRAM * 
*. INTERRUPT 
♦.OCCURRED .» 



****J3*»******* COMPILER 



(COMPILATION 
PHASE 

INITIALIZATION 
-SEE CHART 078) 



»**K2********* 
BRANCH TO * 
IEX*O001 * 



Chart 077 : Compilation Phase - IEX50 
Overall Flow 



Microfiches IEX50-1 
to IEX50-7 



IEX40001 

IS A CONTROL 

SECTION OF 

LOAC MODULE IEX4C. 

INITIALIZATION OF 

THE COMPILATION 

PHASE DESCRIBED 

IN CHAPTER 8. 



****A2 ********* 

* * 

* IEX40001 * 

*************** 



*****B 2 ********** 
* . 078* 

* INITIALIZATION * 
*0F COMPILATION * 

* PHASE * 

* * 
***************** 



****C2 ********* 

* * 

* XCTL TO IEX50 * 

* * 
*************** 



****A3********* 

* * 

* I EX 50 * 

* * 
*************** 



*****B3 ********** 

* LOAC BASE * 

* REGISTERS TO * 

* ADDRESS SNOT * 
♦AND PRCG. CON. * 

* MATRIX * 



*****C3 ********** 
♦SPECIFY OPFRR1,* 

* Je3, NX 4 AS * 
*EXITS FOR DIR. * 
♦ROUTINES PI ROUT* 

* E0DUT2 i. EODUT3* 
***************** 

**** 

* * 

* D3 *.X. 

* * 
**** 

*****03 ********** 

* * 
♦SNOT 079* 

* SCAN TO NEXT ♦ 

* OPERATOR ♦ 



COMP .♦. 

(079) F3 ♦. 

.♦BRANCH *. 

.♦ACCORD. TO *. 

♦ .SOURCE/STACK .' 

*. OPERATORS.* 



*****A4********** 

* * 
*CPO 080* 

.X* COMPILER ♦. 

* PROGRAM NO. * 

* * 
***************** 



*CP1 80+ 

,X^ COMPILER ♦. 

* PROGRAM NOl ♦ 

* * 
***************** 



♦ D3 * 

* * 
**** 



*****C 4* ********* 

* * 
♦CP3 080+ 

,X* COMPILER ♦. 

* PROGRAM NO. 3 ♦ 

* * 
***************** 



*****D4********** 

* * 
♦CPA C81+ 

,X* COMPILER ♦. 

* PROGRAM NO. A * 

* * 
***************** 



****C5*+******* 

* * 
.X* XCTL TO IEX51 ♦ 

* * 
*************** 



(SEE DECISION MATRICFS IN 
APPENDIX V-A, V-B AND V-C 
FOR COMPILER PROGRAMS ENTFRED 
FOR EACH PAIR OF SOURCE AND 
STACK OPERATORS. 
SEE ALSO FIGURE 52. ) 



***** £4********** 

* * 
♦CP87 119* 

X* COMPILER *., 

♦PROGRAM NR. 87 ♦ 

* * 
***************** 



* D3 * 

* * 
**** 



238 



Chart 078 ; Compilation Phase - IEX50 

Initialization (in IEX40) 



Microfiches 
IEX50-1 to IEX50-7 
(Initialization: IEX40-1) 



Chart 079 : Compilation Phase - IEX50 
SNOT, SNOTSP and COMP 



Microfiche IEX50-1 



♦♦♦♦A !*♦**♦**♦♦ 



I 
o 
tr 



I 



*****A2 ********** 


* STORE INERR 1 




* AT ERET AS 




:*PRCG. INT. EX1 




♦FOR DIR. ROtT. 




* PI ROUT 


* 



* CALCULATE 

* LENGTH OF 

► PRIVATE AREA 



****#C2 ********** 

* GFTMAIN FOR * 
*OPTAB OPTP/CPND* 

* STACK'S AND * 

* LABEL ADDRESS * 

* TABLE * 



♦ STORE INERR2 AT" 

* ERET AS PROG. < 

♦ INTERRUPT EXIT < 

* FOR DIRECTORY i 
♦ROUTINE PIRCUT < 



*LCAD REGISTERS * 
♦FOR THE REST CF* 

♦ THE COMPILATION* 

* PHASE * 



*0P. /OPO STACK, 

► LABEL ADORES! 

► TABLE 



.* SOURCE 

TEXT IN 
*. CORE 



****4*H2 *********** 



»****K2********** 



.* SOURCE 
. PROGRAM IN 
*. CORE 



RECORD COUNT 



.****<; 1********** 

0PDT=I *X. 



OPNO .* TEST 

*. SOURCE 

♦ .CHARACTER. 



*MOVE OPERAND TO* 



■ SOURCE RECORD 



TEST ♦. PPND ♦ 

SOURCE .♦ X^ RECOOO F 

CHARACTER.* ♦ NO. 1 



***n5+*****' 

step sruRC 



♦JRUFFFR 121A: 



.RFCOROS BEEN . 



SOURCE 
TEXT IN 
. CORE 



CHECK READ OF ♦ 

SECOND SOURCE ♦ 

RECORD * 



Chart 080 : Compilation Phase - IEX50 
CPO, CP1, CP3 and CPERR1 



Microfiche IEX50-3 
(CPERR1: IEX50-1) 



****A1*** ****** 



SOURCE 
1PERATOR = 
. BETA 



* CEN. CALL TO * 

♦ PROLOG ROUT. IN* 



*****E1********** 



t****B3 ********** 

* STORE PROGRAM * 
► POINTER IN * 

* L AT- ENTRY * 

* INDICATED IN * 

* LABEL OPERAND * 



*SAVE REGISTERS 



***** E3 ********** 
♦ STACK SEMICOLON* 



* BRANCH TC 

* TERMINATION 
♦ROUTINE I 



CPEND.X 



>***F3 ********** 
RELEASE OPERANO* 



*0»O* CPERR1 



r = DISPLACEMENT OF 
NEXT INSTRUCTION 
IN CBJECT MODULE 



***G5********* 
KCTL IEX51ER1 * 



M^m, 
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****A 1*** ****** 



(*. OPERATOR = .*. 



SWITCH TO 
STATEMENT 
CONTEXT 



»**B1********** 

RESERVE 2 * 
ENTRIES IN *.... 
PER AND STACK ♦ 


.♦ PROCEDURE *. 
....X*. COMPILATION . 
*. FIRST .* 
♦.BLOCK.* 


NO 


♦♦♦**B3********** 
♦GENTXT6 122E1* 


.* SOURCE *. YES 

..X*. OPERATOR = .* 

*. SWITCH .* 


♦ DECLARATION END**" 



SCAN SOURCE 

INPUT FOR NEXT 

PARAMETER 



ES .* SOURCE 
..*. OPERATOR = 
*. COMMA 



* PARAMETER * 

CALLED BY 
*. VALUE .< 



.* SOURCE *. NO 

:♦. OPERATOR .* 

*. LEFT =1 .♦ 



****D3 ****** 




♦ ♦ 


*GNOPOOPR 081 






* MOVE SOURCE * 




► GNCPDOPR 




*PO INTER 5 BYTES* 


....* SCAN SOURCE 








♦INPUT FCR MFX 


************ 




♦ ♦ 


* OPERATOR 



*****£!********** 


*****£ 2********** 




♦GENTXT2 122C1* 


♦ JBUFFER 121AI + 








ZETA 






♦CHARACTERISTIC ♦ 


♦ CHANGE SOURCE *X. 




* OF PARAMETER * 


* INPUT BUFFER ♦ 





ZETA .* SOURCE *. OPNC 



!* STORE ADR ANO * 

* GCSA IN * 

♦ PARAMETER ENTRY ♦ 



AM8CA X 

***** K2 ***** ***** 
♦GENTXTS 122F1* 

....♦CALL VALUE CALL* 
♦ROUTINE IN FSA * 
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(CP6: IEX50-2) 



*****A2********* 
* STACK SOURCE 



* RESERVE 3 * 

* OPERANDS. FSN * 
. .X* AND OPTB FROM * 

* FSTAB TO tAST * 



*****C1********** *****C2****** 

*STACK SEMICOLON*.... * STACK IF - 



SMTCH TC 

EXPRESSION 

CONTEXT 



§ 
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*A1********* 
CP12 * 



.* 0PERAND= *. YES *CHANGE IKTERI 

. TYPE PROC. .* X* NAME 

*. IDENT. .* * 



CHECK IF 
ASSIGMENT 
POSSIBLE 



*GEN. ACT. PARAH* 
* CALL OR PROC * 
♦CALL OR RETURN * 



*GEN. PRCC. CALL' 

* IF OPNC. IS 

* PRCC. ICENT. 



**D3*< 
■RELEASE OPERAND* 



CPDT = 



♦ EPILOG POUT . 1 
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Microfiche IEX50-5 
(CP19: IEX50-4) 



CP17 * 



:**/S3********* 



. .X*GEN. P 
* PROC. 



IOC. CALL' 
IDENT\ 



n***C 1********** 
>TACK ELSE - 5 *X.. 



*****C2******** 
* RELEASE ONE 



*****C1********** 



STCRE 

IN U 
ACORES! 



C E3 * COMP 



iRPOINT * 
L « 

ABLE * 



ELEASE ONE * 

OPERAND AND ONE* 

CPERATCR * 



>GEN. PRCC. CAI 

* IF CFND. IS 

* PRCC. IDENT. 



► STORE PRPOINT * 

IN LABEL * 

* ADDRESS TABLE * 



SAVE LABEL 
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****A 1********* 



.♦OPERAND IN *. 
♦ .REGISTER .* 



..X*GEN. ACT. PARAM* 
* CALL OR PROC * 
♦CALL CR RETURN ♦ 



t****Cl********** C2 *. 

►SERR1 123A1* .* *. 

I- * INCOMP. .* CCMPARE *. OIFf 

► RECORD ERROR *X *. TYPES .*.... 



*ECUAL 
* D2 *.X. 



INTEGER I 

♦ INTEGER 

* ROUTINE 



**«**F2********** 

* *CP43 

.X*RELEASE OPERAND*.... 



.X*RELEASE OPERAND* 



*****E3*********' 



. CPS1 

. *099* DERE2 



. .X*GET REG. NO 4 

* OISPL. OF 

* OPERAND 



*****G4********** G5 *. 

* * .* LAST "*. 

,X*GET REG. NO AND* X*. OPNO A 

* DISPL. OP * *. CONST. .* 

* OPERAND * *. .* 



* MOVE CONSTANT * 

* TO LEFT VAR. * 
» DSA LOCATION * 



♦RELEASE OPER* 



\ / 
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CP22 



* EXPRESSION * 

* CONTEXT FROM * 

* PROGRAM CONTEXT* 



»**C 2********** 



►GEN. PROC. CAl 

► IF CPNO IS 

► PROC. I DENT. 



♦RELEASE OPERAND* 



, ,X*UPCATE SC. 
* IN FSA 



Microfiche IEX50-4 
(CP22 and CP23) 

Microfiche IEX50-3 
(CP24 and CP25) 
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CP26, CP27, CP28, CP29, 
CP30, CP31 and CP33 



Microfiche IEX50-5 
(CP33 IEX50-4) 



*GEN. PROC. CAL 

* IF OPND IS 

* PROC. IOENT. 



♦RELEASE OPERAND* 



•****B1********** 


»****B2********* 


«**»*B3. «****♦*«» 


••***B4********** 


B5 *. 












* RECORD ERROR * 


* RECORD ERRCR 


* RECORD ERRCR * 


* RECORD ERROR * 






*NR. 194 OR 195 








* * 




* I 




*'*. .»"* 








• 081* 

* A2* 


'* YES < 


*****C1********** 


*****C2********* 








* RELEASE * 


* RELEASE OPTRS 








* OPERANDS AND * 


* AND OPDS AND 






* RECORD FRRCR * 




* ONE OPERATOR * 


•CHANGE CONTEXT 


•UPDATE SC. GEN.* 




* NR.169 * 




* ACCORD. TC 


* CALL TC TRACE * 






•THE STACK OPTR * 


* STACK CPTR 


* IF TEST - * 








**************** 


***************** 







****E1****« 
* CP31 



* UPDATE SC. GEN.« 

* CALL TO TRACE « 

* IN FSA » 



»****F1********** 






* SWITCH TO * 


* RECORD ERROR * 


* EXPRESSION * 


* NR.ltO OR 161 * 


* CONTEXT FRCM * 




* STATEMENT * 




* CONTEXT * 




***************** 



I 
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*****B 1********** 

* STACK SOURCE * 
♦OPERATOR SWITCH* 

* TO EXPRESSION * 

* CONTEXT * 



♦ GEN. ACT. PARAK* 

* CALL CR PRCC * 
•CALL OR RETURN * 



CI *. 





C2 *. 

.* LOWER *. NO 

*. BOUND .* 

*. INTEGER .* 


*****C3 ********** 
♦TRREIN * 


*****C4********** 
♦ GENTXT4 122D1* 


*. OPERATOR = •* 
*. IF .* 


...X* GEN. CALL TO ♦ 

♦ CNVRDI IN FSA * 

***************** 


....X* STORE LOWER * 

* BOUND IN DSA ♦ 

* FIELD ♦ 


* YES 

'. SNOT 


*C7S* 
* B2* 


* YES 






*****D 1********** 
*CLEARRG * 




•****D 2*** *****♦♦ 
♦ROUTINE15 * 


*****D3********** 

* GENERATE * 

* TRANSFER OF * 
...X*LOWER BCUNO TO *.... 

* DSA FIELD IF * 

* NECESSARY * 


•****04* ********* 


* GEN. COO E TO * 
♦SAVE REGISTERS * 


♦ GET REG. NO AND* 

♦DISPL. CF LOWER* 

* BOUND * 


....X*RELEASE OPERANDI 



**»**E4********** 



jfei- ■:<**. 
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>A1********* 



****B2********* 

GENERATE LCAD 
SUBSCRIPT INTC 
REGISTER BRR 



.* SWITCH *. YES 
. IDENTIFIER .*.... 
*. FORMAL .* 



*****C3 ********** 



..X*RELEASE OPERAND* 



SUBSCRIPT * N 

PREPROCESSEO . 
(OPTIMTZEC) . 



»****C i********** 

♦ GENERATE LOAD * 

♦ SUBSCRIPT INTO ♦ 

♦ REGISTER BRR * 



'CALCULATE ADDR.* 

■ INCREMENT FOR * 

SUBSCRIPT * 



* INCREASE * 
♦ADDRESS (STORE ♦ 

* ADDRESS* * 



*GEN. ACT. PARAM* 
* CALL OR PRCC * 
♦CALL CR RETURN * 



.* ARRAY 
. IDENTIFIER 
*. FCRHAL . 



♦GENTXTS 122F1 

♦CHECK DIMENSION" 

♦ OF ACTLAL 

* PARAMETER 



*****F2*********> 

♦ GEN. STORE 

♦ ARRAY ELEMENT 
♦ADDRESS IN GPR 

♦ IF ADR OCCUPIED' 



♦ ELEMENT ADDRESS- 



♦IF ADR IS FREE * 
* LOAD ELEHENT « 
♦ADOR. INTO ADR * 



*♦♦ **D3 ********** 

*SMT = 1 IF NEXT* 

* SUBSCRIPT * 

♦ PREPRCCESSEO ♦ 



*****D4*********i 
♦CHANGE OPERAND 

♦ TO REPRESENT 

♦ DESIGNATIONAL 

♦ EXPRESSION 



• TO REPRESENT 
► ADDRESS OF A 
» VARIABLE 



*****E4* *•******: 

* OPDT = I 



*****F4********** 

* RELEASE 2 ♦ 
•OPERATORS AND 4*.. 

♦ OPERANDS ♦ 



♦ CONTEXT 

,X* INDICATED IN 
•OPERATOR STACK 
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Mic 


CP40 




*****A2********** A3* "*. 


♦ GENTXTS 122F1* 


X* STACK FOR : « * X*.FCRPAL PARAM ...... 

* * *. BY NAME .* 


♦ASSIGNMENT TEST* 



Microfiche IEX50-2 
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Compilation Phase - IEX50 
CP41 



Microfiche IEX50-3 



♦ SAVE REGISTE 



»***B2*** ******* 

RESERVE TV<0 * 

•ENTRIES IN LAT.* 

STORE IN *. . 

ERAND STACK * 



..*GEN. ACT. PARAM* 
* CALL OR PROC * 
*CALL OR RETURN * 



♦STACK 



*****D2 ********** 
*NXT0PT 121 A3* 


LCH 


D3 *. 

.*FSN IN *. 

.♦OPTAB ENTRY*. 

*. STACK .♦ 


HIGH 


♦ 07<W 

♦ 82^ 






* OPTAB ENTRY * 







.*. 




08 J3 












.* OPTI- ♦. 






122E1^ 


MIZATION 


. YES 














. LOOP .* 




♦ CCNOI 


riONAL ♦ 






* ENTRY 


WORESS * 











*****C1^«* ♦***♦** 

* SWITCH TO * 

* STATEMENT * 

* CONTEXT * 



*****C1********«: 



ET BIT 6 IN 
CPTAB ON TO 
INDICATE 



♦RESERVE OPERAND' 

* ENTRY ANO 

• X^ INDICATE ONF 

♦ EXTRA ENTRY 



♦♦♦♦♦E !*♦♦♦♦♦♦♦*■ 



:****B2********* 



t*GEN. ACT. PARAM* 
♦ CALL CP PROC ♦ 
♦CALL GR RETURN * 



♦RESERVE AOR FO»* 

,X* ADORESS OF * 

* SUBSCRIPT * 



♦♦♦♦♦F3 *******♦♦♦ 


*****F4*********4 




* OPDM BEFORE > 


* INCICATE * 


♦LAST PEORFSCNTS: 


*0PTI«I7ATICN IN* 


♦ ADDRESS flf 


* CPOK + 14 ♦ 


♦ SUBSCRIPT * 



§ 

o 

P) 



o 

1 



**** 


*G1********** 


*****G2********** 


*****G3********** 


♦♦♦♦♦G4*******^+* 

* RELEASE * 
....X* OPERATOR * 






♦REL 


EASE OPERAND* 


♦RELEASE OPERAND* 


..X*RELEASE OPERAND*.... 




CP45TF 


**** 




****** 4*****4*44* 


444*44*4**44»**4 


t*****,.,*,***.** 




♦ H5* 


CP«T*090 
* *K1 


*.x! 










'•*. 


SOURCE *. NO 

OPER. = .* 

COMMA .* 


H2 *. 

.*" SOURCE "*. YES 
..X*. OPER. « DC .* 


♦ INDICATE THAT * 

♦ REGISTER GCSA ♦ 

. .X* CONNCT BE *.... 

♦ CCNTRCLLEC ♦ 


*****H4* ********* 

* RELEASE * 

* OPERATOR. ♦ 
....X* SWITCH TO *.... 

♦PROGRAM CONTEXTS 


♦♦H5********« 

RELEASE * 
OPERATOR * 



*****J 1********** 

* INCICATE THAT * 

* REGISTER GDSA * 

* CONNOT BE * 

* CONTROLLED * 



**4«*G3 ********** 
* SMT = 1 * 



*»***H344******** 
♦SMT-1 IF FIRST ♦ 



.♦ PREPROC'C * 
. ACCRESS IN 
♦ .REGISTER .* 



YES .♦ SUBSCRIPT * 
...♦. VARIABLE 

♦ .FOUND IN .* 
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* CP43 



JH1F43 
3M CP20 



.* COUNTING *. 

*. LOOP AND NO . 

*.0PTTM!ZA-. * 

*.TI0N .* 



* LAST OPERAND 

* REPLACES 

* PREVIOUS 

* OPEPAND 



***#*85 ********** 
* STACK F0R.= * 



► * CP20 
* REPLACE STACK * DBIC2 
*OPTR BY ASSIGN * 



.* TEST *. 

SOURCE 
♦ .OPERATOR .* 



GENUINE FOR 



► FETCH ADDRESS * 
* OF ITERATED * 

> STATEMENT * 



CPB2 .XDO 

03 *. 

YES .* ONLY 



FIND RETURN 
ADDRESS AND 
STORE IT 



.X* AND LOOP 

♦ COUNTER TO 1 

* NECESSARY 



RESERVE ONE 
STORE LN IN* 



MOVE RETURN 



* GENERATE SET 
♦STEP TO ZERO IF 

* NECESSARY 



*****G2********** 

* GENERATE SET * 

* STEP TC ZERO * 

* AND LOOP * 
♦COUNTER TC CNE * 

* IF NECESSARY * 



*****G3*********< 
* GEHEPATE SET 



♦STORE RET. ADD. * 
♦ BRANCH TO ITER-* 
♦ATEC STATEMENT ♦ 



CP43T *0S0* 



INITIALIZE * 
CONDITIONAL * 
ENTRY ADDRESS * 
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*****&$********* 



*GEN. ACT. PARAf 

* CALL OR PROC 

♦ CALL OR RETURN 



♦ GENTXTP2 122AH 



k SIGN OF STEP. * 



►SENTXTS 122FH 

* ENDLESS LPCP t 
*TFST. EVALUATE * 
► SIGN OF STEP * 



IS STEP *. NO 



► CONTROL *. YES 

VARIABLE .* 

►. REAL .* 



♦CONVERT STEP 



*GENTXT4 122C1* 
♦STORE STEP INTO* 



♦ADD CONTROL VAP* 
♦TO STEP. STCRE * 
♦RESULT IN C. V.* 



CP45TF . +090* 



»***K2**^******» 



LOCATE 
CONTROLLED 
VARIABLE 



CP45TF . ♦090+ 



*. LOOP .* 



♦GFNTXT6 12'Fi* 



♦CALCULATE STFP 
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Microfiche IEX50-2 



****A2 ********* 



o 
o 



* ENTRIES IN LAT.* 

* STORE LN IN * 

* OPERAND STACK * 



SUBSCRIPT 
INCREMENT 
ROUTINE 



DWC1 X 

*****C2********** 
*ADDREL0 * 


♦GENTXT4 12?D1* 

.X *L0AC STEP INTO * 
* REGISTER STH * 

***************** 


'. * OPTBY 
*SET ON 

*****D^ 
*GENTXT 


TE BIT 7 * 
. GENUINE* 
LIST * 

k** ******* 
6 122E1* 

AND LINK* 
TERATED * 


*****C5 ********** 
•GENTXT4 122D1* 


* LOCATE STEP * 

***************** 
•IF STEP 
.IN REGISTER 


♦RETURN ADDRESS * 

* IS STATEMENT * 

* FOLLOWING FOR * 


***** 02 ********** 
*GFNTXT6 122E1* 






*****05 ********** 
♦GFNTXT4 122D1* 


* ENDLESS LOCP * 

* TEST * 


• BRANCH 

* TO I 


* SAVE RETURN * 

* ADDRESS * 



E2 *. *****E3********** 

.* *. *GENTXTA 122D1* 

.* SUBSCRIPT *. YES * * 

► .OPTIMIZATION .* X* * 

*. .* * STORE STEP * 

* AODRELC * *GENTXT4 122D1* 
* i* * * 

* LOCATE TEST * X*ADD TEST VALUE * 

* VALUE * * TO STEP * 

.IN REGISTER 

*GENTXT2 122CI* 
*AOD TEST VALUE * 



♦LOCATE INITIAL 

♦ VALUE OR CONTR. 

* VARIABLE 



*GENTXT6 122E1* 
♦DIVIDE BY STEP * 



* TEST *. 
SOURCE 

♦ .OPERATOR .♦ 



BEGINNING 
OF ITERATED 
STATFNFNT 



*****F5******* 



(ESERVF GPRO 



:hange COUNTER < 

OPERAND TC * 

VALUE IN t 

REGISTER < 



FROM SUBSCRIPT **** 

INITIALIZATION *094* 

IF NO INCREMENT * K5 *.X. 

NECESSARY * * 



► OPFRANO STACK * 









♦ GENTXT6 


122E1* 


....X*. ELEMENT 


* 


* 


* INVERT 


SIGN * 


+. LOOP 



'ES .♦ TEST 
,..♦. VALUE IN 

♦ .REGISTER . 



•MOVE TFST VALUE* 
*T0 OBJECT TIME * 
* STACK * 



.* IS TEST *. YES 
<*. VALUE REAL .* 

* NO '. 

*****G1********** *****G2********** 

* GENTXTA 122D1* *GENTXTP4 1 22 Bl * 

* STORE TEST * * STORE TEST * 

* VALUE IN DSA * *VALUE IN OBJECT* 

* * * TIME STACKS * 

►***H 1********** 

CFANGE TEST * 
VALUE OPERAND ♦ 





*****J2 ********** 




IS ♦. 


♦ ADDCONV 




♦ C-ENTXTP4 122B1* 


CONTROL ♦.YES 














ARIABLE .* 


..X* LOCATE 




...X* CONTPCLLFC * 


R EAL .♦ 


* CONTROLLED 




* VARIAELE TO * 




* VARIABLE 




* FPPO * 


*. .* 


************* 


*** 


***************** 



LOCATE 
CONTROLLED 
VARIABLE 



X* CALC, ST.RFT. * 
*ADDR BR . AROUND* 
*A0D STEP TO C.V* 



CCNTRCLLEC 
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***** 


.* IS * 
.* CONTROL. 
. VARIABLE 
*. REAL 


*. YES 


*****A2********** 
♦ADDCONV * 

* VARIABLE * 


*****A3********** 
♦GENTXTP4 122B1* 


♦ 096* 

* A 1* * " 


...X*LOAD CONTROLLED^ 

* VARIABLE INTO * 

* FPP6 * 



LOCATE 
CONTROLLED 
VARIABLE 



*****C i********** 



*LOAC C 

* VARIABLE INTO * 

* REG STH * 



► IS TEST 
VALUE IN A 

► . REGISTER . 



LOCATE TEST 



.* IS TEST 
. VALUE IN A 
♦.REGISTER . 



► GEN. CALL TO 



LOCATE 
TESTVALUE 
OPERANC 



rFSTVALUE *. M 



VALUE WIT 
CONTROL 
fARIABL 



♦GENTXT4 12201* 

.X* COMPARE *.. 

♦TESTVALUE WITH * 



.X* COMPARE * 

*TESTVALUE WITH « 
♦CONTROLLED VAR.< 



CONVERT « 

(TROLLED VAR.« 

TO REAL * 



*GFNTXTP<t 122 61 

,X* COMPARE TEST 

* VALUE WITH 

* CONTROL VAR. 



♦CONVERT CONTROL*.. 

* VARIABLE TO * 

♦ REAL * 



* COMPARE TEST 

* VALUE WITH 
» CONTROL VAR. 



* COMPARF * 

►TESTVALUE WITH * 
C CONTROL VAR. * 



♦RELEASE OPERA 



ST EH STATEMENT 
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*****B2*^»******* 


♦OPDREC 


120A1* 


♦GEN. AC 


p ARA M* „ 


♦ CALL 


PRCC * 


♦CALL CR 


RETURN * 







****B *********** 



TEST BOOLEAN 



* 05* SUBSCRIPT 
* * INITIAL- 
* IZATION 



Lr*o « 

CONDITIONAL * 
ENTRY ADDRESS * 



> CHANGE 

« CONDITIONAL 
* ENTRY ADDRESS 



♦EXECUTE BRANCH 



kNCK IF TRUE * 



*****E2********* 


E3 *. 


*GENTXT4 122D1 






.* STACK 


*LCAD ADDRESS OF 


*. OPERATOR 


* STATEMENT 




* FCLLCUNG FOR 







****G2********** 
►GENTXT4 12201^ 




►EXECUTE BRANCH * 


*** 


***************** 


J2 





BIT 7 ON IN* .* ♦. 
OPTBYTE, * .* *. YES 
■ENUINE FOR * ♦.OPTIMIZATION .♦ 



♦ EXECUTE BRANCH < 



♦BRANCH IF TRUE * 



.♦ SOURCE ♦. COMMA 



* BRANCH TO 

* STATEMENT 

» FOLLOWING FOR 



♦♦♦♦♦ SUBSCRIPT 
*09B* INITIALIZATION 
♦ Bl^ ROUTINE 



► OPERAND STACK 



ENTXTS 122F1 

CHANGE COND. 

iNTRY ADDRESS, 

-BRANCH 



*0<97* SUBSCRIPT 
* H5* INCREMENT 
* * ROUTINE 



♦GENTXT6 122E1* 


EXG25 X 

*****H 5********** 

* MAKE LABEL * 


♦ INITIALIZE ♦ 

♦ CONDITIONAL ♦ 

♦ ENTRY ADDRESS ♦ 
***************** 




*\ 5 : 


.CP*9T 


****** 


**** 


Jo*o* 
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♦subscript initialization 



***•«]••***•••* 
* CP 51 * 



o 



WG3 .*. USA1 

Bl *. 

.•CURRENT*. 

.* FOR *. NO 

.X*. STATEMENT .*.. 

*. NUMBER IN.* 

*.OPTAB..* 



.♦OPENING*. 

.♦BRACKET IN *. 

*. OPTAB FOUND . 

*.IN SUTABC* 



:****C2*********' 

RESERVE NEW 

SUTABC ENTRY 

PENING BRACK E 

TO ENTRY 



.* SUBSCRIPT *. 

*.PREPROCESSEO .* 

*. IN THIS .* 



****E 1*** ******* 
SET RIGHT * 
SUBSCRIPT * 
ITION BIT ON*X... 
IN SUTABC * 



FROM CPZO AFTER ASSIGMENT 

OF UPPER BOUNC-LOWER BOUND 

♦ 1 TO SMF-ENTRY 



* PRECALCULATED 
♦SUBSCRIPT ACOR. 

* TC REG. NEXTR 



.* STEP *. 

. ELEMENT IN . 
♦.FOR LIST .* 



'GENERATE ADO < 

OR - ADDEND * 

SUBSCRIPT 

■FACTOR TO NXTR 



*****C4********** 
♦NXTR IS SET TO ♦ 

* NEXT REGISTER ♦ 

* RESERVE IT * 

* (ROUTINE?) * 



♦ GEN. ACT. PARAM* 

♦ CALL OR PROC * 
♦CALL OR RETURN ♦ 



♦ RESET SOURCE 

* PCINTER TO 

• SOURCE TEXT 



.♦ LAST *. 
NO .♦OPTAB ENTRY*. 
...... FOR THIS 

♦. F.S. .♦ 



♦RESERVE OBJECT 
♦TIME STACK AND 
* OPERAND ENTRY 



*****E4********** 
♦MOVE SUBSCRIPT ♦ 
♦OPERAND ADORE SS^ 

♦ INTO SUTABC - ♦ 

♦ ENTRY ♦ 



•****F4****** 



E LOAD * 

* BASE INTO ♦ 

* REGISTER NXTR ♦ 



.* UPPER ♦. NO 
*. BOUNO .*.. 

*. INTEGER .* 

***YES 

♦RESERVE OPERAND* 
* ENTRY * 



GEN. CALL TO 



..X«aEASE OPERAND* 



,* SUBSCRIPT *. YES 
, INCREMENT .*.... 
♦ .NECESSARY.^ 



*****E i********** 

♦ LONER BOUND ♦ 

♦ UPPER 8OUN0 * 

♦ SMF-ENTRY TO * 

♦ LAST THREE ♦ 

♦ OPERANCS ♦ 



♦****E3** 

♦STORE DISPL OF * 

♦ OSA ENTRY FOR * 

♦ NEXT LCNER * 

♦ BCUNO IN LAST « 

♦ STACK CPND « 



♦SAVE REG. LOAO ♦ 

♦ ARRAY ELEMENT ♦ 

♦ LENGHT ♦ 



♦♦♦♦♦F 1********** 

♦OPERATORS FOR:-* 
* ANC MINUS TO * 
♦OPERATOR STACK * 



* FIND NEXT * 




* SMF-ENTRY ANO ♦ 




(♦ATTACHED LOWER ♦ 


♦. IOENTIFIF 


♦BOUND IN STACK ♦ 


♦ . LEFT IN 


♦ ♦ 


♦ .STACK. 



*****G2********* 

NO *SET FACTOR BIT 
X* ON 


•****G3*********4 
♦GENTXTS 122FH 


........ 


G4 ♦ 

.♦ WHILE 

**. ELEMENT 

♦ .FOR LIS 


♦ CALCULATE AND i 
♦STCRE ASSIGMENT 



.* LAST *. 
.♦OBTAB ENTRY*. NO 
►. FOR THIS ...... 



SAVE SOURCE 
POINTER AND 
ACOR. DUMMY 
TEXT +1 DO 



'GENERATE ADD * ♦ 

OR - FACTOR ♦ * 

SUBSCRIPT ♦ 

FACTOR TO ADR * 



i****H2********i 
iENERATE LOAD < 
OR - FACTOR * 

SUBSCRIPT 
FACTCR TC ADR 



» CALCULATE AD- « 
• DRESS INCRE- < 
» MENT FACTOR < 



* STORE AODRESS ♦ 

* INCREMENT FACT.^ 

* IN SMF-ENTRY ♦ 



UVA1 
SUBSCRIPT INCREMENT 



► GENERATE ADD 

► INCREMENT TO 

► SUBSCRIPT 

► ADORESS 



***** j2****"***« 
ELEASE OPERAND* X* OPDT '0 *. 



► LAST * 
SMF-ENTRY 

► .PROCESSEO.* 



J3 *. *****J4********** 

.» *. OTHER ♦ ♦ 

.♦ NEXT ♦. OPTR ♦ STEP SOURCE ♦ 

(♦. OPERATOR .* X*POINTER 1 BYTE ♦.. 



:**D5********** 



*****G5' 
•RELEASE OPERAND 



.* OPERAND *. 

*. CONTAINING . 

♦.SUBSCRIPT .♦ 



CP*7 ♦09**0MG51 



CP*9 . EXG25 
X 

»OST» 



Chart 100 : Compilation Phase - IEX50 
CP52 and CP54 



Microfiche IEX50-4 



:****B2*** *****' 

STACK SPECIAL 



,****B3******* 



♦INCREASE ARRA 

* IDENTIFIER 

* COUNTER 



♦STORE OISPL OF 

* OSA ENTRY FOR 

* NEXT LOWER 



►**F5********* 



SNOT . 



r^ 



Chart 101; 



Compilation Phase 
CP56 and CP57 



IEX50 



Microfiche IEX50-4 



*****B !****»***** 



EXPRESSION 



(C !*♦**»»»*»* 



****A2*»* ****** 
* CP57 * 



* PARAM.COINT, * 
♦CHARACTERISTIC * 

* IN OPERAND < 

* STACK * 



*GEN. ACT. PARAM* 



*****0<t****** 





.* OPERAND 


. YES 




* GENERATE LCAD * 


*. LABEL OR 




..X* LOAD AOORFSS 




*. SWITCH . 




♦ CROI LAT TO 


* PARAMETER * 








♦ ♦♦INFORMATION*** 









* USE OF S 

* PROC. NC 

* SPFCTAl 



*C LOSI KG 
.PARENT. *0" 



♦GENTXTS 122F1 



♦LOAD ADD. FROM ♦ 



'*STORE«EGSM*' 



****G3 ********* 



♦CLEAR RFGISTFf 



♦GENERATE PRCC. ♦ 

♦ CALL BY * 
♦CLEARING PARAM ♦ 

♦ NO. IN OPKD AND* 

♦ CALL OPDREC ♦ 



* CONTEXT 
OPERATOR 

". STACKED . 
♦PROGRAM* 



SWITCH TC 

CONTEXT 

INDICATED IN 

STACK 



Chart 102: 



Compilation Phase 
CP59 



IEX50 



Microfiche IEX50-4 



Chart 103 ; Compilation Phase - IEX50 
CP61 



Microfiche IEX50-4 



****A 1*** ****** 



. .X*GEN. ACT. PARAM' 
* CALL OR PROC 
♦CALL CR RETLRN 



BRANCH Tfl CSVE2 



*****B4********** 

♦SAVE COMPONENT * 
(* ADDRESS IN *.. 
* LABEL OPERAND * 



*****A5********** 

* GENERATE LCAD * 

* GDSA WITH * 
. .X*AODRESS OF DSA * 

*IN WHICH LABEL * 

* IS DECLARED * 



*A1********* 
CP61 * 



► COPY OPERAND 
■ ANC INCREASE 
►PARAMETER COUNT 



COMPCNENT 

ACDPESS 
CONSTANT 



* RELEASF A 
..X*SHITCH OPERANDS" 

* AND OPERATORS 



♦UPDATE SC GEN. 

* CALL TC TRACE 

* IF TEST 



*****C 1********** 

* GET SPECIFIED* 
♦CHARACTERISTICS* 
♦FROM. PROCEDURE * 

♦ IDENTIFIER ♦ 



* GENERATE CALL * 
► FOR STANDARD * 

* PROCEDURE * 



*****B 2 ********** 
* RELEASE ONE * 



. OR STANDARD . 
♦ .FUNCTION .♦ 



•****84******** 



* TRANSFER OF * 
► AODRESS TO * 
♦PARAMETER LIST * 



k PROCEDURE « 
PR STANDARD 
'.FUNCTION .< 



♦♦♦♦♦E5 ***♦♦♦*» 



o 

1 

•0 



.♦ STAND. ♦. 

♦ . FUNCTION OR . 

♦ .I/O PROC..^ 



FCC* 

*****E3********** 
♦CONSFL 104D5* 



♦CONSTRUCT FLAGS* 



* RELEASE ONE * .* TEST *. 

* OPERATOR * X*. CONTEXT .* 

* ♦ ♦.OPERATOR .♦ 

***************** *. . ♦ 

EXPRESSION X STATEMENT X FTE1 PROGRAM X FTD3 

*****61********** *****G2********** *****G3********** 

* SWITCH TO * * RELEASE CNE * * SWITCH TO * 

* EXPRESSION * X* OPERATOR * *PROGRAM CONTEXT*. 

* CONTEXT * * * * * 



.* 'ABS' ♦. ♦CPDREC 120A1* 
■SIGN', ♦. YES ♦ ♦ 

'LENGTH', .♦ X*GEN. ACT. PARAMO. . 

. 'ENTIER' .♦ ♦ CALL CP PROC ♦ 

♦ . .♦ *CALL CR RETURN ♦ 



E4 ♦. *****F5********** 

.* ARE *. *SPEC.iCT 10441* 

.* SPECIAL *. YES * * 

:*. ACTIONS .* X* * 

♦ .REQUIRED .♦ ♦SPFCIAL ACTIONS* 

♦ NO 

♦103* . ! 

♦ FA ♦.X. 

♦ RELEASE TWn ♦ .*" IS "*. NC 

♦ DPERANDS ♦ X*. C^MMA !N .♦.. 



*079* SNOTSP 



♦ RELEASE FOUR 

► OPERANDS AND 

► ONE OPERATOR 



♦ GENFRATF CALL 
. X* OF ENTRIES 
♦FUNCTION IN FS 



»**j i********** 



FL02 

♦ADR TRANS 



► GENERATE CALL ■■ 

* FOR STANDARD ' 

* PROCEDURE 



♦ REPLACF ♦ 

♦ PROCEDURE ♦ 
• X* IDENTIFIER BY * 

♦ OPERAND FOR ♦ 

♦ FUNCTION VALUE ♦ 



Chart 104 s Compilation Phase - IEX50 

SPECIAL ACTIONS and LOADR1 



Microfiche IEX50-4 



■ FSEl SPECIAL 



*6ET OBJECT TIME* 
* ADDRESS OF * 
♦PARAMETER LIST * 



NO .* THE FIRST * 
...*. PARAMETER 

*. HANDLED .♦ 



...*BITS IN I/O T 



TEST 
. NUKBER 



»****D2********** 
* SET OSN « 16 *X. 



►****E3********** 



****G1********* 
* RETURN * 



****G2*******< 
* TYPE TEST 



■ DECLARATION 
> ADDRESS TO 
►PARAMETER LIST 



*LOAD GPR1 WITH 
* ADDRESSES OF 
♦PARAMETER LIST 



*LOAO ADDRESS. OF* 
♦LIBRARY ROUTINE* 
♦ AND BRANCH * 



****E4*** ****** 
* RETURN * 



♦CONSTRUCT PLAGS* 



.* MUST *. 
.♦ACTUAL AND *. NC 
'. SPECIFIED .♦... 



.♦ ACTUAL 
♦.PARAMETER At 
♦. ARRAY . 
♦ .IDENT. ♦ 



♦GENTXT4 12201* 






♦ IS ♦. 




YES 


'pa 


ACTUAL 


♦ TEST OF *X.. 


* ASSIGNABILITY * 






:alled BY. 








*.NAPE .* 





H2 *. 

.♦IS *. 

.* STRING OR *. 

. PROCEDURE .♦ 

♦. SPECIFIED. ♦ 


*****(«****♦♦♦♦*♦ 
♦GENTXT4 122D1* 


NO . 


.*"* *** 




♦ ERROR ENTRY IF ♦X... 

♦ ASSIGMENT NOT ♦ 


PROCEDURE 
*. SYSACT 



♦ INSERT FLAG IF * 
♦ASSIGNMENT NOT ♦ 

♦ POSSIBLE * 



NTXT4 12201 

INSERT NO 
SSIGMENT FLAG 



*****K l*******^** 
♦ GENTXTS 122F1* 


K2 * 
• *IS IT 

*. CALLED 

♦ .NAME 


3Y.** 


YES 


*****K3********** 
♦ADRTRANS 103A3* 


♦MOVE PBN. STORE+X.. 
* REGISTERS ♦ 






* TRANSFER * 



* RETURN 



•A*************** 



Chart 105: 



Compilation Phase 
CP62 and CP63 



IEX50 Microfiche IEX50-4 (CP62) 
Microfiche IEX50-5 (CP63) 



****A !****♦♦**♦ 



***A4^+****** 



, .X*GEN. ACT. PARAM 
♦ CALL CR PROC ♦ 
♦CALL OR RETURN * 



****B !****♦***♦♦ 
UREASE * 



*GEN. ACT. PARAM* 
♦ CALL OR PROC ♦ 
♦CALL OR RETURN ♦ 



.♦ LABEL ♦. 
.♦DECLARED If. 
*. CURRENT 
*. BLOCK . 



.♦OPERAND IN 



►♦♦♦03' 

OPDT=0 



.♦OPERAND IN < 
"♦.REGISTER .♦ 



♦ GENERATE CODE * 

♦ TO LOAD THE * 

♦ OPERAND TO A * 
♦FPR (ROUTINE 2 * 



♦PENTXT2 122C1 
♦LOAD COCPLEPENT' 



* LOAD COMPLENT « 

* (FLOATING « 

* POINT) » 



Chart 106 : Compilation Phase - IEX50 Microfiche IEX50-5 
CP64, CP65, CP66, CP67 and CP68 (CP64: IEX50-4) 



Chart 107: 



Compilation Phase 
CP69 



IEX50 



Microfiche IEX50-5 



o 
o 

H 
ft 



* STACK AN * 

* OPERATOR TO * 

* INDICATE * 

* CURRENT CONTEXT* 



SWITCH TO 
STATEMENT 
CONTEXT 



*****H 1********** 
*STORE OISP. OF * 
* NEXT FREE DSA * 



SWITCH TC 

EXPRESSION 

CONTEXT 



*****C2********** 



>***C3****« 
CP66 



STCRE IT W 
NEXT LAST 
OPERAND 



INITIATE * 

RAMFTER COUNT*. 
I LAST OPERAND* 



*****B5 ********** 



.* SOURCE *. YES * STACK CONADIC * 

I*. OPERATOR = .* X* HINUS * 

*. MINUS .* * < 



*****G2********* 

* HARK CORRESP. 

* LAT ENTRY TO 
• X* SHOW CALL CF 

* STAND. PROC. 






GDBG45 X 

*GENTXT6 122 El* 

* BRANCH OVER * 

* ACTUAL PARAV * 
♦CODE SEOUENSES * 



****A1********* 



* STACK * 

OPERATOR= 
*. POWER .« 



>****(: 1********** 



.* STACK 
. OPERATOR = 
*. PCWER 



► REAL-INTEGER » 

► POWER ROUTINE * 

► (I1B1J * 



.X* INTEGER - 
* M VISION 
♦ROUTINE (ISP!) 



*(BCTH OPERAKOS) 



f REAL OIVISK 



*STACK STANDARD 

* PROCEDURE 

* BRACKET 



Chart 108 : Compilation Phase - IEX50 
REAL-REAL 



Microfiches IEX50-5 
and IEX50-6 



DHEB2 
FROM ****A1* 
CP20 * 
CP69 * REAL - REAL 



* GEN. LOAD « 
♦OPERAND BFFCRE * 

•X* LAST IN FPR « 

* (ROUTINE 2 OR * 



IPERATOR *. N 



* GEN. LOAD 
♦OPERAND BEFCRE 

X* LAST IN FPR 

* (ROUTINF 2 OR 



*GET LAST OPND*S* 

* BASE REG. AND * 

* OISPL. * 



► GET BASF REG. * 



El *. 






♦ROUTIN12 


IS LO 




NO 




IN A FPR 






♦RELEASE FPR OF 




.* 




* LAST OPERAND 



( RESULT 

STORED 

IN CSA) X 

*****!= 1*****4 
♦ROUT IN 1 2 



♦RELEASE FPR OF 

♦ OPNC BEFORE 

♦ LAST 



*****F3 ********** 

♦ INTERCHANGE ♦ 
♦LAST TWC OPNDS ♦ 

♦ IN STACK ♦ 



t***G3********** 
SWREL = 1 ♦ 



♦GENTXTP2 122A1^ 

,X+ MULTIPLY OPND ». 
♦BEFORE LAST BY ♦ 
♦ LAST OPND ♦ 



HGG1 1 X 

*****H3 ***♦♦♦♦*♦♦ 

♦ GET LAST OPND+S^ 

♦ BASE REG. AND ♦ 
♦CISPL. (RCUTINE* 

♦ 1 OR 3) ♦ 



♦ GENTXTP2 122A1 + 



.X^ DIVIDE OPND * 
♦BEFORE LAST BY » 
♦ LAST OPND * 



.REL.OPTR 

*****K2***^*^*4** 
♦GENTXTP2 122A14 



(♦ SUBTRACT LAST * 
♦OPND FROM OPND ♦ 
♦ BEF. LAST ♦ 



1 MULTIPLY OPND » 
■BEFORE LAST BY * 
' LAST OPND « 



* J3 * 


♦ nivIDE 0°NO 
♦BEFORE LAST BY 

♦ LAST OPND 


• : : 




E5 ♦. 

.♦ SWRFL = ♦ 
X*. 1 

♦ YES 


*...? 




*****F5******** 






♦ SWREL = 


* . 




*♦****♦****♦****♦ 




*****G5 ********** 
♦GENTXTP2 122A1 + 


X ". 


♦LOAD COPPLEPENT + 




♦ H5 ♦... 






....XX.... 





♦****J5 ***♦***♦♦♦ 



► COMPARE LAST 

► TWO OPNDS 

► (RESULT IN OSA) 



;♦ TRANSFER LAST ♦ 
* OPND VALUE TO * 
♦OPND BEF. LAST * 



^fi^ 



Chart 109 ; Compilation Phase - IEX50 

REAL-REAL (cont'd) , REAL- INTEGER, 
REAL POWER and COMMON POWER 



Microfiches IEX50-5 
and IEX50-6 



► RESERVE NEX' 



♦GEN. LCAC OPf* 
,X+ (ROUTINE 2 C 



♦♦♦♦♦C !♦♦♦♦*♦**♦* 

♦ GET BASE REG. ♦ 

♦ AND OISPL. OF ♦ 
♦OPNC BEF. LAST ♦ 

♦ (ROUTINE 1 OR ♦ 



*♦♦* ♦D !♦*♦♦♦♦**♦* 



> BASE REG. AND ♦ 
»DISPL. (ROUTINES 
* 1 OR 3) ♦ 



.♦ STACK ♦. 
.♦ OPERATOR * 
.*. RELATIONAL 



B4 ♦. 
.♦ ♦. *R0UTIN14 
IS FPR ♦.NO * 

free .♦ x*gen. store f 

"♦"yes 

c' "♦. 

.♦ ♦. *ROUTIN13 ♦ 

IS FPR 2 *. NO * ♦ 

FREE .♦ X*GEN. STCRE FPR?* 

.♦ * IN DSA * 

Vyfs 

D4 ♦. ♦****f)'5*****«>*** 

,♦ ♦. ♦ROUTINE * 

IS GPR1 ♦. NO ♦ — ♦ 

FREE .♦ X+GEN. STORE GPRl^ 

.♦ ♦ IN DSA ♦ 



*OVE LAST OPND ♦ 
VALUE TO OPND * 
BEFORE LAST ♦ 



* GET BASE REG. ♦ 

* AND DISPL. OF * 
*OPND BEF. LAST ♦ 



****f 2 ********* 

♦ REAL-INTEGER ♦ 

♦ POWER ♦ 



►♦♦♦F3 **♦*****♦ 



HCB1 

♦COPM. POWER! 



► LOAD ADOR. OF +X. 
►PARAM. LIST AND^ 
►OPND BEF. LAST ♦ 



* LOAD ROUTINE 

* ADDRESS AND 

* BRANCH 



♦GET LAST OPNO^S^ 

♦ BASE REG. ANO ♦ 

* DISFL. ♦ 



♦♦♦♦*J l****^***** 




♦ GENTXTS 122FW 








♦LOAD LAST OPND ♦X 


...♦. OPERAND 


♦ ADDRESS STORE ♦ 




♦ BRR AND STH ♦ 


*• 



►LOAD LAST OPND « 

► ADDRESS STORE ♦ 

► STH AND BRR * 



► LOAD RCUTINI 

► ADDRESS AN! 

► BRANCH 



***************** 



****K5********* 
♦ RETURN ♦ 



Chart 110 : Compilation Phase - IEX50 
INTEGER- INTEGER 



Microfiche IEX50-6 



Chart 111 ; Compilation Phase - IEX50 Microfiche IEX50-6 
INTEGER MULTIPLICATION and INTEGER POWER 



O 

I 



**** A1 **4 
♦ INTEGER-] 



► OPERAND *. NO 

EEF. LAST .*.... 
*. IN GPR .* 



.* STACK *. 
.* OPERATOR *. NO 
*. ARITHMETIC .*.... 



*****D1********** 



*GET LAST OPN0*S* 
* BASE REG. AND * 
» DISPL. * 



♦ROUTINE8 



.* STACK *. N 

*. OPERATOR = .*. 

*. ASSIGN .* 



,*F3********** 
LAST OPND+S* 
iSE REG. AND * 
!SPLACEHENT * 
OUT IKE 1 OR * 



* INTERCHANGE 

* LAST TWO 

• X* OPERANOS IN 

* STACK 



*****D4^+******' 

* SWREL = 1 

*******•*•*,*****! 



t ADD LAST OPNO < 
«TO OPND BEFORE * 
* LAST * 



..X* SUBTRACT 

*OPND FROM 
* BEFORE I 



EL.CPTR. 

*****J2*********> 
♦GENTXT2 122C1 

..X COMPARE LAST 

* TVO OPNDS 

♦ (RESULT IN OSA)> 



♦ GENTXT4 122D1* 

.X* SUBTRACT LAST *.. 
*OPNO FROM OPND * 

* BEFORE LAST * 



♦GENTXT4 12201* 



R.OPTR. 

*****j4********** 
*GENTXT4 12201* 

..X COMPARE LAST * 

* TWO OPNDS * 

♦ (RESULT IN DSA)* 



****K3********* 
!* RETURN * 



»****A5*< 
»GEN. LOAD OPND * 
» BEFORE LAST * 
* INTO GPR » 

► (ROUTINE 5 OR * 



*****G5 **♦♦***< 



****A1**» ****** 
' INTEGER MULT. * 



OPERAND *. NO 



► FOLLOWING 

ODD GPR 
*. FREE 



• •OPERAND*. .* *. 

*. BEF. LAST *. NO .* LAST 

IN ODD .* X*. OPND IN 

*. GPR .* *.NEXT GPR . : 



► LAST 
OPND IN T 
♦ .EVEN GPR 



*****E 1********** 



* GET BASE REG. * 

* AND DISPL. OF * 

* LAST OPND * 



' INTEGER POWER 



GET BASE REG. 

AND DISPL. OF 

'CPNC BEF. LAST 



► LOAD OPND 

■ BEFORE LAST 

► INTO ODO GPR 



*****G 1********** 


♦R0UTINE8 




* 


* RELEASE 


LAST 


* * 


* RESERVED 


GPR 










********** 


***** 




****** " 
























IQD11 X 






*****H1*** 






♦ GENTXT2 


122C 


1* 


* MULTIPLY 


OPNO 


* * 


♦BEFORE LA 


ST BY 




* LAST 


>ND 




***************** 



♦ EVEN GPP IN CSA« 



FCLLCVIN 

ODD GPR 
FREE 



I0E11 X 

*****J 1********** 
♦GENTXT4 12201* 



* GET BASE REG. * 

* AND DISPL. OF * 
*OPND BEF. LAST * 



OPERAND *. YES 



IUH21 X 



*LOAO PARAMETER * 

* LIST ADDRFSS 1 

♦ AND ADDRESS OF i 



OPON BEF. .LA! 



GET BASE REG. 

AND DISPL .OF 

LAST OPND 



* POWER-ROUTINE 



* GEN. C 
MOPD BEF. 



.X*GEN. STORE ePNT" 



Chart 112 ; Compilation Phase - IEX50 Microfiche IEX50-6 
INTEGER DIVISION and RELATIONAL 



****A 1********* 



■ OPERAND *. 
BEFORE LAST . 
'. IN GPR .* 



.♦OPERAND*. 
*8EF0RE LAST*. NO 
IN EVEN .*.... 



*GEN. LOAD OPND * 

* BEFORE LAST * 

.X* INTO THE EVEN * 

*GPR (ROUTIHE 5 * 



K*LOAD OPND. BEF.* 

* LAST INTO THE * 

* EVEN GPR * 



> LAST 
OPND IN T 



TRANSFER OPND * 
EEF. LAST TO * 
THE ODD GPR * 











T2 


122C1* 








LOAD 






■ IN 


TO 


STH * 


***** 


•* 


♦♦*»*♦♦♦ 



*ICE1 RELATICNAL* 



* DIVIDE OPND 

* BEFORE LAST BY 

* LAST OPND 



***#*G2 ********** 



* DIVIDE CPKO * 
►BEFORE LAST BY * 

* LAST OPND < 



.****G3 *********: 



*CVE TRUE TO 

■DSA. LOAD AODR.' 

CF TRUE 



► BRANCH 

* ACCORDING TO 
» OPERATOR 



k BRANCH 

» ACCORDING TO 
► OPERATOR 



RETURN * 



Chart 113 : Compilation Phase - IEX50 Microfiche IEX50-5 
CP70, CP71, CP72, CP73, CP74 and CP75 



*****2***** 
* CF71 



****A3********* 
* CF72 * 



*****B I********** 

* SWITCH TO * 
► STATEMENT * 

* CONTEXT FROM * 

* EXPRESSION * 

* CONTEXT * 



SWITCH TO * .* *. 

H CONTEXT* YES .* OPERATOR *. NO 

♦FROM STATEMENT * ...*.8EF0RE LAST= .*..... 

* CONTEXT * . *. ASSIGN .* 



»****C4********** 
* STACK ( * 



* STACK 






► RECORD ERRCR 



Chart 114: 



Compilation Phase 
CP76 



IEX50 



Microfiche IEX50-5 



Chart 115: 



Compilation Phase 
CP77 and CP78 



IEX50 



Microfiche IEX50-5 



"INTERCHANGE OSA* 
"FIELDS OF LAST *. 
* TH? OPERANDS * 



*****B 1********** 
♦OPCREC 120A1* 


*: 


B2 *. 

* STACK 
OPERATOR 


. NC 


*GENTXT6 122E1* 


BA *. 

.♦OPERAND*. 

.♦BEFORE LAST*. 


YES 


* (LAST TWO * 

* OPERANDS) * 






* TC NEW CSA * 





»****B 5 ********** 
* GET BASE REG. * 



.* OPND *. 

.♦BEFORE LAST*. 

'. INTERMEDIATE . 

♦ .VALUE IN .* 

*. CSA .* 



".INTERMEDIATE . 

♦ .VALUE IN .* 

*. DSA .* 



♦GEN. ACT. PARAM* (LAST 

* CALL OR PROC * OPERAND) 

♦ CALL OR RETURN ♦ 



ttxC't********** 



* MOVE OPER/ 
♦BEFORE LAS1 

* NFW DSA Fl 



• INTERMEDIATE . 

*. VALUE IN .* 

♦. DSA .* 









♦ GET 


BASE 


REG. ♦ 




DISP 


CF * 




ST OPND * 


♦ (ROUTINE 


1 OR * 


****** 




****** 



♦OPND BEF. L 



RELEASE ONE 

3PERAND AND ONf 

OPERATOR 



INVERT OPND 



* GET BASE REG. 

* AND DISPL. OF 

* OPERAND 

* (ROUTINE 1 OR 



♦♦♦♦*E2***»* 



♦INVERT OPERAf 



o 



*GENTXT6 122E1* 

♦ CPNO EEF. LAST * 

* AND LAST OPND * 



k**G ■>********** 



..♦OPNO BEF. LAST * 

* EXCLUSIVE CR * 

* LAST OPND * 



♦GEN. ACT. PARAW 
* CALL OR PROC * 
♦CALL OR RETURN * 



♦ GET LAST OPND*S* 



TEST IF 
VARIABLE IS 
TRUE OR FALSE 



*****E4******^^ 

♦ RESERVE ENTRY * 

♦ IN LABEL * 
♦ADDRESS TABLE, ♦ 

♦ SAVE LN IN ♦ 

♦ OPERAND STACK ♦ 



' STACK THEN-S 



Q 


"*. .*" 


3 


* IMPL 


T3 




H- 




H» 




ft 
H- 





*****J 1********** 


♦ GENTXT6 122E1* 


3 


♦ OPND BEF .LAST ♦ 




♦ EXCLUSIVE OR * 




* LAST OPND * 


H 


***************** 


M 




X 
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CP79 



Microfiche IEX50-5 



<A1********* 



KBE1 

*****B2 ********** 
♦OPDREC 120A1* 



(■•OPERANDS BOTH.* X+GEN. ACT. PARAMO 

*. BOOLEAN .* * CALL CR PROC 1 

*. .* *CALL CR RETLRK < 



BOTH 
JPERANDS 
LABELS . 



. .X*GEN. * 
♦CALL C 



.AST CPERANO) 



►MOVE LAST OPND *. . 

* VALUE TO OPNO * 

* BEFORE LAST * 



.* OPNO *. 

■•INTERMEDIATE . 
♦ .VALUE IN .* 

*. OSA .* 



*GENTXTS 122F1* 


***** C 5********* 
*GET LAST OPNO*S 
* BASE REG. AND 
*DISPL. (ROUTIN 


K*LOAD LABEL ADDR* 
* ADR AND GDSA * 





.* OPERAND ♦ 
. BEFORE LAST 
*. REAL .* 


. YES 


<*'. OPERAND 
*. RF*L 


.***" 


KEC11 


04* "*. " 

BOTH, *. YEsI 
OPNOS IN -*..X. 
.SAME GPR .* 


KBG2 

*****D5 
♦GENTXT 


i 


122 El 


OPERAND) 


♦MOVF LAST OPNO * 

* VALUF TO OPNO i 

* BEFORE LAST * 



(.****E5*»**#**4»* 



* LOAD LAST OPND 

* INTO SAME FPR 

* CFNC B. LAST 



* MOVE OPND > 

* BEFORE LAST » 
♦DOWN 5 BYTES IN' 

* STACK 



.*. 




KEF2 


G2 *. 




♦R0UTIN15 


BOTH * 


NO 












». SAPE GFR .* 




* BASE REG. AND 

* DISPL. 



♦LOAD LAST OPND *. . 
* INTO SAME GPR ♦ 
♦AS OPND B. LAST* 



*****G5 ********** 



RELFASE ONE 



Jl *. 




KEF31 X 

*****j3********** 






.*" LAST "*. NO 
*. OPERAND IN .* 


♦GENTXTP4 122B1* 
...X*LOAD LAST OPND * 


*GENTXT4 122D1* 


**** 




♦LOAD LAST CFND *.. 


.X* E5 * 






* INTO FPRO ♦ 


* INTO SAME GPR * 










♦ AS CPNC B. LAST* 
















♦ YES 


♦ K2 ♦. X. 








****** 1*******»»* 


*****K2*** ******* 


*****K3********** 


**,,* K 4**** 




♦ GENTXTP2 122A1* 


♦ GENTXT6 122 El* 

...X* LOAD ACTUAL *. . . 

* ADDRESS AND * 


* STORE FRPOINT * 


♦TRINRE 


* 








♦ INTO FPRO ♦ 


* * 


* CNVIRD IN 


DSA * 


♦ * 


* BRANCH * 


* ♦ 


*(OPD BEF. 


LAST)* 
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CP80 and CP81 



Microfiche IEX50-5 (CP80) 
Microfiche IEX50-3 (CP81) 



****A5***** 
* CP90 



*****B2**« 



*****B3 ********** 



♦RELEASE OBJECT 

* TIME STACK 

* ENTRIES 

* RESERVED FOR 



JPTIMIZATION . 



.* STEP *. 

*. ELEMENT IN . 

♦ .FOR LIST .* 



COUNT *. NO 
REGISTER .*.... 
. STORED .* 



.* CNLY 
,*CNE APm 
>. ELEHEKT 1 



.KKJ1 X 

*****J3 ********** 
♦GENTXT6 122E1* 

* ITERATEO * 

* STATEMENT * 



***************** 



♦BRANCH ON CCL^T* 



V ■</ 
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CP83, CP84, CP85 and CP86 



Microfiche IEX50-5 



* RECORD ERROR 



CPERR1 . 



* INDICATE * 
♦POSSIBLE USE OF* 

* ALL DATA SETS * 



♦RESERVE OPERANDI 



♦ STCRE PPPOINT * 

♦ IN CPC. AS ♦ 

♦ ADDRESS OF ♦ 
♦FIRST CCMPONENT* 



♦ RECORO ERROR 



*****C5*********1 



a 



•••**E3 ♦♦♦♦♦♦♦♦ 
♦STACK SWITCH.* 



I 
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CP87 



IEX50 



Microfiche IEX50-5 



(STACK OPERAND) 



i .♦ OPNO IS 
.♦.INTERMEDIATE 
♦ .VALUE IN . 



► ANC OISPL. OF ♦ 

► VARIABLE ♦ 
» (ROUTINE 1 OR ♦ 



HOVE CONSTANT 



RESERVE NEXT 





♦ ♦03* 


♦ CF 






INTC 




POUT If 



RESERVE NEXT 



GEN. LOAD OPND 
INTO GPP 
ROUTINE 5 OR 



♦ RESERVE ONE < 
♦ENTRY IN LABEL * 

♦ ACCRESS TABLE « 



LOAD LABEL 

ACORESS AND 

BRANCH 



STACK ELSE 
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OPDREC 



IEX50 



Microfiche IEX50-1 



♦♦♦*A1**» ****** 



.* OPERAND *. 

t. FORMAL .* 

♦•PARAMETER.* 



.* OPERAND *. 

<*.PARAMETERLESS. 

♦ •PROCEDURE.* 



•****D 1********** 



♦ SAVE REGISTERS * 



(* RETURN 



.♦FORMAL *. 
.* PARAM IS ♦. NO 
*.PARAHETERLESS.*... 



♦CHECK IF ACTUAL* 

♦ PROCEDURE * 

♦ PARAMETERLESS ♦ 



.♦LABEL ♦. 
(*'. IDENTIFIER 



**•**£ 2*********4 

* GENERATE LCAO « 

* ADR KITH « 

♦ ADDRESS SAVED < 

♦ IN FORMAL * 
♦PARAMETER ENTRY* 



,X*LOAO GCSA WITI 

♦ DSA ADDRESS 

♦ SAVED IN 

♦ PARAHETER*ENTRY< 



***«*J 1********** 

♦CHANGE OPERAND ♦ 
♦ TO REPRESENT * 
♦ACDRESS IN ADR * 



♦♦♦*K 1*** ****** 
* RETURN * 



^»K 
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JBUFFER, NXTOPT 



Microfiche IEX50-1 



****A1********^ 
* JBUFFER * 



♦♦♦♦A3' 
♦ NXTOPT 



*****B1********** 

♦ GET ADDRESSES ♦ 

♦ OF CCS AND ♦ 

♦ CURRENT BUFFER ♦ 



*****D1********** 



♦♦♦•♦♦E !♦•♦♦♦♦***•* 



*****F X********** 



.♦ENTRIES IN ♦. NO 
► .CURRENT REC- .♦ 

"♦.DLED .** 



*****D3 *♦♦♦*♦♦♦♦* 
♦CHECK FREVIOUS ♦ 



*«***F3*4******** 



>G1********** 



*****G3********** 



♦♦***H !♦♦******♦* 



****H3> 
* RETURN 



****J 1********* 
* RETURN * 
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Compilation Phase 
GENERATE 



IEX50 



Microfiche IEX50-1 
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Compilation Phase 
Error Reading 



IEX50 



Microfiche IEX50-1 



****A1*** ****** 
* GENTXTP2 *. 



****B i********* 
* GENTXTP4 *. 



N*A5********* 
GENPLD * 



#****B2******* 



*****B4*********' 



♦ INSTRLC 


ICN IN * 


X*CALL TC 


LCNG OR* 


* SHORT 


ORMAT * 





*****C2********** 




****C 1********* 








* CALCULATE * 


INDICATE 


GENTXT2 *.... 


....X* PROPER LENGTH * ...X 
X * OF CODE * 


CALL 



► 01********* 



****E 1********* 
* GENTXT6 ' *. 



****F1******* 
* GENTXTS 



*****D2 * **** ***** 
♦COMPUTE RETLRN *. 



•****B5*********l 

* CALCULATE 
♦LENGTH COMPUTE 

* RETURN 



INDICATE ESQ 



.* DECK *. ** 

.* OR/ AND *. NO * 

LOAD .*... X* RETL'RI 

*. OPTION .* * 



INSERT t 

LENGTH " 

RECORD 



CODE INTC 
RFCORO 



*****F3*** : 

* MOV I 

♦ RLC-INFC 
*INTO RECI 



♦ RLO-INFCBMATION 



f*S .* PREVIOUS 

. ..*. RECORD SAME 

*. TYPE 



.* BOTH *. 
.* DECK AND 
<*. LOAD 

*. OPTION . 



* INCREASE 

* PROGRAM POINTER' 

* PRPOI NT 



o 
P) 

H 
rt 



1 



.♦RECORD *. 



♦ .FROCESSEC* 



*. ENTRY MOVED . 



J3 *. 


*****J4******** 




*****jf> ********** 




* INCREASE ESII 




* EDIT RECORD * 


ALL *. 


♦NUMBER MOVE Tt 




* BLANKS, * 


NFORMATICN .♦ 


♦RECORD IF FIRS 




* STANDARD * 


HANCLED .* 


♦ ENTRY 




♦INFORMATION AND* 


*. .* 


* 


♦ 


♦ SEQUENCE NUMBER* 



*SYSPUNCH BUFFFR* 



PUT ON SYSPW 



*SET SWITCH FOR 

♦ STACK OPERATOR. 

* GET LENGTH OF 



ADDRESS NEXT 

FREE ENTRY It 

ERROR 

POOL, INSERT 

.ENGTH OF ENTRY" 



SERRSR (MSG 



****e3> 

'SET SWITCH FOI 

SOURCE 

OPERATOR. Cf 

.ENGTH OF ENT' 



♦ SET SWITCH FOR 

♦ BOTH OPERATORS 

♦ GET LENGTH OF 



ADDRESS NEXT 
FREE ENTRY IN 

ERRCP POOL. 
INSERT LENGTH 



.♦ SOURCE 

*. CPERATOf 

*. ONLY 



FETCH SOURCE 



NSERT OPERATOR* 

(SOURCE OR * 

STACK) * 



• CURRENT 
CONVERT T 
'AL, INSERT 



► PUT CN SYS LIN 



*****H3***** 




* INSERT 


SC 




* KG f 






* UPDATE 




TO * 


♦NEXT FR 


EE F 


***** 



■ ****J2*********> 



****K3********* 
* RETURN * 



RT PRPCINT. 
•PROGRAM POINTEf 
TXT RECCPD 



l*K2********* 
RETURN * 
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Overall Flow 



Microfiches IEX51-1, 
IEX51-2 and IEX51M-1 



THE TERMINATION 
PHASE IS DESCRIBED 
IN CHAPTER 8. 



****A2 ********* 

* * 

* IEX51 * 

* * 
*************** 



*****B2 ********** 

* GEN. TXT, RLD * 

* AND ESD CARDS * 
*FOR TABLES AND * 

* OTHER INFOPH. * 
♦NEEDED AT EXEC* 
***************** 



*****C2 ********** 



***************** 



******Q2*********** 



* PRINT STORAGE * 
REQUIREMENTS 



*********** 



*****E2*** ******* 



*********** 



*****p 2********** 



***************** 



*****D4********** 

* * 

* RELEASE ERROR * 
♦POOL AND SOURCE* 

* BUFFER I ♦ 

* * 
***************** 



*****E4********** 

* * 

* UPDATE THE * 
♦INVOKER'S PAGE * 

* COUNT * 

* * 
***************** 



*****F4********** 

* * 
♦CLOSE DCBS AND * 
♦RELEASE BUFFER ♦ 

* POOL S * 



*****G4* ********* 

* * 

* RESTORE SPIE * 
♦MACRO AND FIND * 

* RETURN CODE ♦ 

* * 
***************** 



****H4********* 

* * 
♦RETURN TO IEXOO* 

* * 
*************** 



262 



I -J 
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Object Time Table Output 

* IEXS100C * 



Microfiche IEX51-1 
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Main Storage Release and 
Close of Data Sets 



Microfiche JEX51-2 



*****B1*** ******* 


*****B 2********* 


*****B3 ********** 


*****B4********* 




♦ GENERATE 








* ESO-CARD FCR 


♦ GENERATE * 


• GENERATE 


* DIRECTORY * 


* LIBRARY 


*OSTAB TXT-CARDS* 


* END CARD 


♦RETURN ADDRESS * 


* ROUTINES ONLY 








* USED ROUTINES 










***************** 





% 

o 



^3 



...*. COMPILER 



♦SET PRPOINT TO * 

* FULL WORD * 

* BOUNDARY • * 



*****£ J*********. 

* SAVE PRPOI 

♦ (BEGIN OF LABEL 1 
♦ACCRESS TABLE 



'GENERATE * 

EL ADORESS * 
'TABLE (LAT) TXT* 
CARDS * 



...*. ADDRESS IN 



* RLC-CAROS FOR 
► INTERNAL 

* ACDRESSES 



*****C2**^******* 

♦ GENERATE 

♦ RLD-CAROS FCR 

♦ EXT. AOORESSES 



.♦ LIBRARY 

♦ . ROUTINES 

*. USED 



CCNSTRLCT 

PBTAB4 FROM 

PBTAB3 



♦ GENERATE 

♦ RLD-CARDS FCR 

♦ ADDRESSES CF 
♦CONSTANT BLOCK 

♦ ENTRIES 



♦****G2*** **♦♦*♦♦ 
♦CONSTRUCT DATA ♦ 

♦ SET TABLE ♦ 

♦ (DSTAB) FRCP ♦ 

♦ IOTAB * 



•****C3********** 
♦GENERATE * 

* RLC-CAPC FOR ♦ 
♦PGCF- ACCRESSES + 

♦ IN CSTAB ♦ 



.♦IS IT A*. 
.♦ PROCEDURE ♦. YE 
. COMPILATION .*.. 



*****E4****** 



♦GENERATE.. 



*****G3*****> 



*****F4****** 

* FREEMAIN.... 

* R6L EA SE 

* RESERVED AR 



:****B2****» 
■ET TERM SWITCH' 
AND PROVIOE 



.♦GETHAIN FOR^. NO 
>. BUFFERS .♦... 

♦ . ISSUED .♦ 



♦ FREEMAIN < 

♦ERROR POOL AND 
♦SOURCE BUFFER 1 



.♦DID THE^. 
* INVOKER *. 

PROVIDE A . 
►. PAGE .* 

♦ .COUNT.* 



► UPDATE THE 
►INVOKER'S PAGI 

► COUNT 



*****G 2 ********** 

* PROVIDE NEW * 

* DIRECTORY ♦ 
♦RETURN ADDRESS ♦ 



.♦IS IT A^. 
.♦ PROCEDURE *. Y 
*. CCMPILATION .*. 



TRM56 X 

♦♦♦**J3*******^** 

♦GENERATE ♦ 

► ESD CARD (LD) ♦ 

♦FOR ACCR. TABLED 

NO DSTAB ♦ 



*****G4*** ****** 

* RESTORE THE 
♦INVOKER'S SPIE 

♦ MACRO 



•***J4********* 
♦RETURN TO TEXOO^ 



(CHART 003-B5) 
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Print Storage Requirements 



Chart 128 : Termination Phase - IEX51 

Overall Flow: Error Message 
Editing Routine 



Microfiches IEX51-1 
and IEX51M-1 



FOR CETAIL OF IEX60000, 
SEE LOAD MODULE IEX 21 
-FLOWCHARTS CAC - C43 



******B2******4 



♦CONVERT LENGTH * 



MODULE TC 
PRINTABLE 
NLMBER 



*****D2********* 
* BUILD FIRST 



* BUILD THIRD 



t***H2********4 
PRINT THIRD 



► INITIALIZE 
» PROGRAM BLOCK 
* NUMBER AND 



****04* ******** 



****G5 ********* 



* ACCRESS ERROR * 
» POCL, MESSAGE * 

* PCCL AND * 

* ACCRESS TABLE * 



GET ERROR 
«JMBER AND FI 
HESSAGF POOL 



* ASSEMBLE * 

* MESSAGE TEXT IN* 

* WORK AREA * 



WRITE MESSAGE * 



NC .*ERRCR POOL * 
..*. ENTRIES 

♦ .PROCESSEC* 



>**K2******4 
IEX51002 



^ 



f~ 



V J 
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Overall Flow 



Microfiches, 
all starting with IHI 



Chart 130 : ALGOL Library Microfiche IHIFSA-1 

ALGIN, VALUCALL, LOADPP and TRACE (ALGIN: IHIFSA-2) 



.*****81********** 







. SHORT 








***** 


**** 


A3 *. 


* INITIALIZE 

* ROUTINE TO 




INITIALIZE * 

RCUTlfiE TC * 


FOB 


*AS* 


•X*. PRECISION .» 


...X* HANntE LONG 






»**** 


***» 


♦ . IS USFO .* 


* PRECISION 


,* 


► PRECISION * 



• SET DL«P SKITI 



* OPEN 
<*SYSUT1,GETMA 

* COR BUFFER 



IS *. NO 



♦CALCULATE SIZE * 

* OF SMF AND * 

* ARRAY » 






CCNVERT 

PARAMETER If 

NECESSARY 



♦OBJECT FRCGRAM < 



*****E3********** 

* MCVE ACTUAL * 
♦PARAMETER INTO * 

(.* CORRESPCKOING * 

* FORMAL PARA- * 
♦METER ENTRY IN * 
*OSA. ************ 



. PRECOMPILED . 
*. PRCC. .* 
ALREArY .♦ 
LCAOEC* 



NO .» THE LAST *. YES ♦ENTRIES IN TOP » 







* ct«plf 




* FNTRIFS, 


LCAC * 


* PRECOMI 


.ED * 


♦prtc.tnto 


XAIN * 


********** 


******* 



.* STATEMENT *. 
.WTHIN TRACE . 
*. LIMITS ."* 



* CALCULATE * 
.X*LENGTH OF TRACE*. 

* -ENTRY * 



IN BU«ER •*• 



•WRITF BLFFEP T 
EW PUFFER 



..•ENTRY IN BUF<=ER*1 
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PROLOG, SPDECL and. EPILOG 



Microfiche IfiIFSA-1 



»*A1********* 
PROLOG * 



BLCCK A .* 

♦PROCEDURE 



STANDARD 
PROCEDURE 
HANDLING 



►GETMAIN FCR DSA* 
UNITIALIZE DSA,* 
* MAKE AN ENTRY * 
> IN RAS * 



.* PROGRAM *. 

». BLCCK A CODE . 

♦ .PROCEDURE.* 



* PBN:=1 ENTER 

* PRECOMPILED 
.X* PROCEDURE 

♦ADDRESS IN ADR 



ENTER BLOCK 



f- 



****D !♦****♦*♦* 
* SPDECL *. 



OLTPUT 

*. ROUTINE . 

♦CALLED.* 



♦ INPUT/ CUT PUT 



♦ DYNAMIC STORAGE*. 



=ST PARAMETERS* 
ANC STORE ♦ 
PARAMETER *. 



♦MATHS ROUTINES 



*****G2 ********* 
* FREEMAIN FOR 



*****H2********** 



.*IS IT A*. 
.♦PRECOMPILED*. NO 
». PROCEDURE .* 



* FREEMAIN FOR 

* ANY SMF, ARRAY 



DELETE 
PRECOMPILED 

PROCEOURE 
RELEASE RAS 
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CAP1, CAP2 an<T TERMNTE 



Microfiche IHIFSA-1 
(TERMNTE: IHIFSA-2) 



♦♦♦♦♦e3*< 

* BRANCH TO A * 

* THUNK TO GFT * 
.X* THE ACTUAL *.. 

♦PARAMETER RETURN 
♦AFTER HANCLING ♦ 
♦PARAMETER******* 



* CALLING BLCCK * 

* IN PROCEDURE * 



•♦CI******* 
RETPROG 



♦GET LAST ENTR 



*****D3********** 
..* RELEASE ENTRY *X 



♦CLOSEPE 142A1 
,X*CLOSE ALL DATA 



» USING EPILOGB * 



*****G2********** 


*****G3********** 
♦CLOSF. 143C1 * 


♦-.♦ G ,**-*« 


* SPIE MACR * 


*CLCSE SYSPRINT * 


ALGOL FXFCUTK 

* MFSSAGE 



* CLOSE SYSUT1, 

* FREEMAIN FOR 



> PROGRAM TR/ 
►FROM SYSUT1 

► SYSPRINT 
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IHIERR 



X*. CCCLRRED ON .*.. 

*.SY SPRINT .* 




* NO 




*****B2*********» 




* PREPARE * 


NO . 


OUTPUT * 




***************** 





* CONSTRUCT ERF 

* MESSAGE ANC 

* WRITE CN 

* SYSPRINT 



Microfiches IHIERM-1 
and IHIERR- 1 



# Chart 134 ' ALGOL Library Microfiches UNREAL and 

INREAL, ININTEGER, INBOOLEAN, ININTEGER: IHIIDE-1, 

INARRAY, INTARRAY and INBARRAY INARRAY and 

....„.••••.•• A2 ♦,. INTARRAY: IHIIAR-1, 

: .nrea L : : ,h„ e« : inbarray: ihiiba-i, 

%,„♦,„ * *.„„„ ,/ INBOOLEAN: IHIIBO-1) 



OPEN 1<.1A1 » 
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DATA SET * 
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INTERNAL 
'REPRESE 

STCRE 



INSTRUCT DUMP 



****»F2 
♦ OPEN 
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« OPEN 


ATA SET * 



► READ NEXT 
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INSYMBOL, OUTREAL, OUTINTEGER, 
OUTBOOLEAN, OUTARRAY and OUTTARRAY 



*STCFE POSITION * 
*CF CHARACTER IX*, 
* DESTINATION * 



M3VE TO NEX1 

CHARACTER IN 

STRING 



Microfiches 

(INSYMBOL: IHIISY-1, 

OUTREAL: IHILOR-1, 

OUTINTEGER: IHIOIN-1, 

OUTBOOLEAN: IHIOBO-1, 

OUTARRAY: IHIOAR-1, 

OUTTARRAY: IHIOTA-1) 



Chart 136: 



<*EXTERNAL REPRE- 
* SEN TAT ION ANO 






ALGOL Library 

OUTBARRAY, OUTSYMBOL 
and OUTSTRING 



Microfiches 
(OUTBARRAY: IHIOBA-1, 
OUTBARRAY: IHIOBA-1, 
OUTSYMBOL: IHIOSY-1, 
OUTSTRING: IHIOST-1) 
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X* ADORE SS 




8 BYTES FCR 


UMBER * 
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Chart 139 . 



ALGOL Library 
SYSACT (cont'd) 



Microfiche IHISYS-1 



•skip to reccro • 

,.%• specifieo «y * 

• quantity * 





• INPUT 


X 


.•CMV 


•••••g !••«•••*•• 


B2 *. 


• *CC VALUE OF 




•CURRENT RECORD 


.• WHAT IS 


• POINTER TO 


*. CURRENT I/O 


• QUANTITY 


•• RODE 






••***•****••**••< 


•. .* 



•****C3********** 



I YES .* MAS LAST 



• .SECTIONEO.* UHEN NO. OF *.OPERATION. ♦ 

*. .* RECOROS/SEC. *. .* 

• . .* >,» OUANTITY ». .* 

•YES,»HEN NO. OF » 

.RECORDS/SECTION 



• FILL REST OF 
•CURRENT RECORD 
♦WITH BLANKS AND" 

* SKIP TO FIRST 
•RECORC IN NEXT 



1*2F1 * 

.X* * 

•GET NFXT RECORD* 



■SECT! 



.♦WHAT IS*. 
NOT- .* NUMBER OF *. 
*. CURRENT 

OUANTITY *. RECORD •• 



•***E4********* 
X* RETURN »* 



.• IS DATA • 

SET 
*. SECT ION ED.* 



****H3********* 
* RETURN ♦ 



•••••j 1****»****« 

* FILL REST OF » 
•CURRENT RKORO * 
•WITK BLANKS ANO*.. 

* SKIP TO FIRST • 
•RECORC IN NEXT • 
•SECTION ***•»»»•• 



Chart 140 t ALGOL Library 



Microfiche IHIGPR-1 



PUT, GET, OUTPUT and INPUT 



* OPEN SYSUT2 



YES 


.** WH*T **. 6ET 


*****g4********** 
•REPOSITION DATA* 


..,; 




• .OPERATION.* 
"**PUT 

•****C3 •»******** 
•CHECK LIST I/O • 


• NEW RECORD • 

• ENTRWOTTAR * 



*****C5**»******* 



,.X*IN NOTTA5 MT> 







*****D4* ********* 


*****o;**«*«*«* 


**»*03 *»****< 






*PRCLOS I31A1 






• WRITE THE * 




► RETURN 


*X... 


....* RECORD ON *X... 


* FNTER LIST 




* 


* SYSLT2 * 


* PRHCEDURF 



••••E !*•* ****** 



•CHECK LAST I/C « 



•****F4* ********* 
•READ THE PFCPRO* 
*FRON SYSUT2.ANO* 



X* RETURN 



****J 1*******»* 
* OUTPUT *. 



» TRANSFER • 

» PARAPETER TO « 
* OUTPUT BUFFER « 



»**JA********* 



••***K3 * *•••••••• 

* TRANSFER DATA • 

* FRCN INPUT ♦ 
•X* BUFFER TC *.. 

* PARAMETER * 



•***K4********* 
«* RETURN » 
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OPEN, DCEXIT and OPENGP 



Microfiche IHIIOR-1 



Chart 142 ; ALGOL Library 



;etmain for ocb* 





MACRO * 


* GETMAIN FOR * 
♦NOTTAB IF NONE * 


* 






=CRMATIGN IN *. 


X* EXISTS AND * 


• X* CPEt> 


nr 


* 


CCB * 


♦UNBLOCKED FORMAT 
* HAS BEEN USFn * 


* 





►SET CCNTENTS CF* 



* READ A BLOCK * 
► ANC CHECK THE * 

* OPERATION 1 



> READ A BLOCK 



* COMPLETE CCB 
,X*RECFM,LRECLANO 



rMAIN FOR TWO* 
BUFFERS *> 



*»**C1******** 



* NOTF LAST < 
♦RECORD AND PUT * 

♦ DSTAB * 



►♦El********* 
CLOSEGP *. 



CLOSEPE, CLOSE, 
CLOSEGP and NEXTREC 



♦CLOSEGP 141J1 



* CLCSE SYSUT2 



'CHECK CAT A CELLS 
0-15 IN * 

'SUCCESSION AND * 
OKE CLOSF * 
INE FOR ANY» 



♦♦***C3*»**» 


***« 


♦ IF ANYTHING 


IN * 


OUTPUT ♦ BUFFER FI 




• X* WITH 




* BLANKS, WRT 




* ANC CHECK 


• ••• 



Microfiche IHIIOR-1 



O 
H 
B 

KJ 

cj 

UJ 

I 

CO 

o 
o 
o 
I 
o 



(D 






* SET STANDARD ♦ 
K VALLE OF * 

»RECFM,LRECL At>D*. 
>BLKSI ZE IN DCB * 



♦GETMAIN FOR DCB* 

* AND CECE, * 
.X*INSERT STANDARD*. 

* DCB MODEL * 



* OPEN DCB AND 



INFORMATION 
= !NG OPENEXIT 
!OUTINE+^+*** 



2? 

CD 
< 

W 
(D 
Cb 

*<: 

i-3 

t* 

K 
CO 
CJ 

! 
00 

o 
o 
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NEXTREC 

* * 

* NEXTPEC * 

* * 
*************** 



* CURRENT *. 

r ecann la st . * 

*.IN BLOCK .* 



**C2 **<****; 



NOITOE 
ENTRY 

NEECEC 



*****E 1********** 

*SET PO INTFR S TO* 
*MEXT RFC3R0 IN * 
* BLOCK * 



.* CU SPENT * . MO 
. RECORD LAST .* .. 
*.IN BLCCK .* 



.*C URRENT*. 
.♦RECORD THE ' 

LAST IN 

*. SECTION .' 

*. . * 



N3 .* NOTTAB 

...*. CNRY 

* . MFFDED 



F2 *. 

. * HAS *. 
NO . * BACKVARD *. 
. .. *. REPCSI TI CNING. * 
*. CCCLRRED . * 



****** F3*********** 

NCTE CURB REC 

* IN NCTT AB. RE/C* 

NEXT BLOCK. 

* CHANGE * 

BUFFERS 



*****F4********** 

*SET POINTER S = C* 

* INSE* T CONTROL * 
*CHARAC TtR=C • 1' * 

* * 
***************** 



***************** 



****(: j********** 



*****G2 ********** 

* CLEAR ALL * 

* N'CITAB ENTRIES * 

* FCR REC NC > * 
*CLRREM PEC NC * 

***************** 



*SET POINTERS TO* 
*NEXT RECCRO IN * 
* BLCCK * 



*****G4********* 
* 

* INCREASE 

* CHARACTER 
*PO INTER BV ONE 



H2 *. 

. *NOTTAB ». 
NO . * ENTRY FOR * 
...*. ;URR REC 

*. NEEDED . * 



*. 



*. 



* INCREAS E REC3R C* 

* POINT ER S BY *X 

* ONE * 

***************** 



NCTE CLRR PEC 

NX. ENTER IN 

* NCTTAB * 



*J3********* 
RETURN * 



DATA ». NC 

SET ...... 

. SEC TICKED. * 
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APPENDICES 



•Appendices 271.2 



to 
■ to 



APPENDIX !-a - Source Module Character Set after initial 

translation of the source text in the Scan l/ii 
Phase. See CIB subroutine 



APPENDIX !-b - Character Set of the Modification Level 1 
source text output by the Scan ill Phase. 
The character set does not include five-byte 
internal names representing logical constants 
and character strings stored in the Constant 
Pool See Appendix II . 



APPENDIX l-c - Character Set of the Modification Level 2 
source text output by the Scan III Phase. 
The character set does not include five-byte 
internal names representing identifiers, 
constants, logical constants and standard 
procedure designators. See Appendices I! 
and III. 
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Epsilon 
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Eta 
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C 
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Do 


End 


Gamma 
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Beta 


l_f 
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Pi 
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Factor 
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Goto 
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For 
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Array 


Step 


Delta 
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Until 


Epsilon 
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While 


Eta 
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Do 


End 
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Beta 
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Else 
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Notes: 



The invalid character (X'2C) is assigned to any character 
in the source module which is not represented in the standard 
character set (EBCDIC or ISO) specified in the code option. 

The character Zeta (X 1 2F ! ) is inserted at the end of every 
input record, otter the initial translation to internal code. 



Character Set representing operators entered in the Operator 
Stack in the Compilation Phase. 
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Switch: = 
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Explanation of Operators 



Operators originating 
in the Modification 
Level 2 Source Text: 



< 
> 

< 

Assign 

Goto 

For 

Step 

Until 

While 

Do 

If 



nxolanation 



Addition 

Subtraction 

Multiplication 

Division with real quotient 

Division with integer quotient 

Power operator 

Left parenthesis 

Colon in the bound pair list of 
an array declaration 

Left bracket opening a subscript expressioi 

Array declarator 

Switch declarator 

Semicolon terminating a statement 

Semicolon terminating a declaration 

Delimiter opening a compound statement 

Delimiter opening a block 

Delimiter opening a procedure 

Delimiter ooening a type-qualified 
orocedure 

Equal to 

Less than 

Greater than 

Not equal to 

Not greater than 

Not less than 

Assignment to 

Delimiter specifying a branch 

Delimiter opening a for statement 

Separator in a r or list 



Delimiter terminating a for list 
Operator opening an if clause 



Then 
Else 



Explanation 

Operator terminating an if clause 

Sequential operator in a conditional 
statement or expression 

Negation 



imal 


Implication 


Or 


AUernativity 


And 


Conjunction 


Equiv 


Lquivalence 


Special operators 




originating in the 




compiler programs: 




Alpha 


Designates the botto 
Stack 


If-s 


If opens a condition 


Then-s 


Then belonging to a 



Monadic Minus 

i 

For: 

Switch:- 

PRC 

STC 

EXC 



of the Operator 



Else belonging to a conditional state- 
ment 

Parenthesis opening an actual parameter 
list in a procedure statement or a func- 
tion designator 

Parenthesis opening an actual parameter 
list in a standard procedure statement 
or function designator 

Minus sign which specifies the negative 
quality of an operand (as opposed to 
the operation of subtraction) 

Bracket opening a bound pair list in' an 
array declaration 

Specifies the start of a for list in a for 
statement 

Specifies the start of a switch list in a 
switch declaration 

Specifies a switch to the Program Con- 
text Matrix 

Specifies a switch to the Statement Con- 
text Matrix 

Specifies a switch to the Expression Con- 
text Matrix 
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APPENDIX II: INTERNAL REPRESENTATION OF OPERANDS 



Internal representation of identifiers, constants, strings, and logical values in the 
Modification Level 2 text. (In the Modification Level 1 text, only strings and logical 
values are replaced bv internal names: identifiers and constants are unchanged from 
their external representation, except that they are translated to the internal code in 
Appendix l-b.) 





Internal Name (5 bytes) 




<P.B. No.> 






Type 


Characteristic > 


or 
<C.P. No.> 


: 0/2 byte) 


displacement > 
(1 1/2 bytes) 


1. IDENTIFIERS 

Declared Identifiers 


Bytes and 1 


Byte 2 


Bytes 3 and 4 


(Hexadecimal) 








REAL 


CO 32 


<P.B.No > 




< Displacement > 


INTEGER 


CO 31 








" 


BOOLEAN 


CO 33 








" 


ARRAY 


C8 06 






<NOS> 


" 


" , real 


C8 06 






<NOS> 


" 


" , integer 


C8 05 






<NOS> 


" 


" , boolean 


C8 07 






<NOS> 


" 


LABEL 


CC 08 








< 1. abel No.> 


SWITCH 


CC OC 






< NOO 


" 


PROCEDURE 


CA CO 






<NOP> 


" 


" , integer 


CA CI 






< NOP> 


" 


" , real 


CA C2 






<NOP> 


" 


" , boolean 


CA C3 






< NOP> 


" 


CODE PROCEDURE 


CA 40 






' NOP> 


" 


" " , integer 


CA 41 






NOP • 


ti 


" " , real 


CA 42 






- NOP> 


11 


" " , boolean 


CA 43 






^ NOP- 




Specified Identifiers 










called by name 










REAL 


C2 12 








< Displacement > 


INTEGER 


C2 11 








" 


BOOLEAN 


C2 13 








N 


ARRAY 


CA 16 








" 


" , integer 


CA 15 








" 


" , real 


CA 16 








" 


" , bool ean 


CA 17 








» 


LABEL 


CA 18 








» 


SWITCH 


CA 1C 








" 


PROCEDURE 


CA DO 








" 


" , integer 


CA Dl 








" 


" , real 


CA D2 








" 


" , boolean 


CA D3 








» 


STRING 


CB 10 










Specified Identifiers 










called by value 










REAL 


C2 22 










INTEGER 


C2 21 










BOOLEAN 


C2 23 










ARRAY 


CA 26 










" , real 


CA 26 










" , integer 


CA 25 










" , boolean 


CA 27 










LABEL 


CA 28 










PROCEDURE, integer 


C2 El 










" , real 


C2 E2 










" , boolean 


C2 E3 










II. CONSTANTS 










INTEGER CONSTANT 


C8 01 


<C.P. No> 




< Displacement > 


REAL CONSTANT 


C8 02 








III. CHARACTER STRINGS 










CHARACTER STRINGS 


C9 00 


00 




» 


IV. LOGICAL VALUES 










TRUE 


C8 03 


00 




00 07 


FALSE 


C8 03 


00 




00 00 


All-purpose internal name 










(replaces an invalid identifier 










or a defective constant) 


91 FF 


01 




00 00 



Key: 

Characteristic > = 

displacement > = 

(Identifiers) 

(Numerical and 
logical constants 
and strings) 

<Label No.> = 

<NOC> 
<NOP > 
<NOS > 
<P.B.No.> 

<C.P.No.> 



(See Figure 10, Chapter 4) 

displacement in the object time Data Storage 
Area specified by the Program Block Number > 



< Displacement in the Constant Pool specified 
by the Constant Pool Number > 

displacement in the obfect time Label Address 
Table > 

< Number of Components - 1 > 

< Number of Parameters > 

< Number of Subscripts - 1> 

< Program Block Number of the block or procedure 
in which the identifier was declared or specified > 

< Constant Pool Number> 



4~' 



274 



Form Y33-8000-0, Page Revised by TNL Y33-8001, 12/15/67 



APPENDIX III: INTERNAL REPRESENTATION OF STANDARD PROCEDURE DESIGNATORS 



Internal representation of standard procedure designators in the Modification Level 2 text output by the 
Scan III Phase and input to the Compilation Phase. 



Standard Procedure 
Designator 


Internal Name (5 bytes) - Hexidecimal 


< Characteristic > 


<Character of 
formal parameters > 


func- 
tion > 


< Displacement 
of entry in Label 
Address Table>* 


3rd 1 2nd 
param. \ param. 


1st 


Bytes 


and 1 


Byte 2 


Byte 3 


Byte 4 


Standard Mathematical 












Functions 












ABS 


88 


82 





2 


80 


ARCTAN 


88 


82 





2 


10 


COS 


88 


82 





2 


OC 


ENTIER 


88 


81 





2 


F0 


EXP 


88 


82 





2 


18 


LENGTH 


88 


81 








E0 


LN 


88 


82 





2 


14 


SIGN 


88 


81 





2 


CO 


SIN 


88 


82 





2 


08 


SQRT 


88 


82 





2 


04 


Standard I/O Procedures 












INARRAY 


88 


80 


E 


1 8 


2E 


INBARRAY 


88 


80 


7 


1 8 


36 


IN BOO LEAN 


8A 


80 


B 


1 8 


2A 


ININTEGER 


8A 


80 


9 


1 8 


26 


INREAL 


8A 


80 


A 


1 8 


22 


INSYMBOL 


8A 


80 


9 


1 8 


IF 


INT ARRAY 


88 


80 


D 


1 8 


32 


OUTARRAY 


88 


80 


6 




4A 


OUTBARRAY 


88 


80 


7 




52 


OUTBOOLEAN 


88 


80 


3 




46 


OUTINTEGER 


88 


80 


1 




42 


OUTREAL 


88 


80 


2 




3E 


OUTSTRING 


88 


80 







56 


OUTSYMBOL 


88 


80 


1 




3B 


OUTTARRAY 


88 


80 


5 




4E 


GET 


8A 


80 


4 




5E 


PUT 


8A 


80 


4 




5A 


SYSACT 


8A 


80 


9 1 


1 2 


03 



Key : " ; Characteristic > = 

Byte 0: X*88' 
X'8A- 

Byte 1: X'80' 
X'81' 
X'82' 



--Operand, no assignment > 

< Operand, > 

< I/O procedure > 

< Standard function, integer type > 

< Standard function, real type > 



•^Character of Formal Parameters > = 



Binary 0000: 


< String > 


" 01 00: 


< Procedure (in PUT/GET) > 


xxlO: 


< Real > 


xxOl: 


< Integer > 


xxll: 


«=• Not array > 


Oxxx: 


< Formal and actual parameters 




must be compatible> 


Ixxx: 


< Formal and actual parameters 




must be identical in type> 


Function >= 




Byte 3-Bit 4=1: 


< Input procedure > 


Bit 5=1: 


-Output procedure > 


Bit 6=1: 


< SYSACT > 


Bit 7=1: 


<PUT or GET> 



Note 

All standard I/O procedures and mathematical functions (except ABS, 
ENTIER, LENGTH and SIGN) are represented by individual load modules 
in the ALGOL Library. At linkage edit time, the Library modules cor- 
responding to the I/O procedures and mathematical functions invoked in 
the source module, are loaded into main storoge with the generated 
object program. The entry point addresses of the loaded modules are 
stored in the Label Address Table. Figure 85 shows the Label Address 
Table entry in which each entry point address is stored. 



♦The last two bits of byte 4 indicate the number of parameters required by the standard I/O 
procedure or function. 
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APPENDIX IV: COMPILE CONTROL FIELD (HCOMPMOD) 



Byte 
No. 


Bit 
No. 


Switch 
Name 


Bit 
Value 


Significance 








CMT 



1 


Compiler in normal compilation mode. 

Compiler in syntax check mode. An error with severity code S (serious) has been detected. 


1 


SMT 



1 


No significance. 

Object code to evaluate an optimizable subscript expression in a for statement has been generated - used in IEX50 only. 


2 


WERR 




1 


No significance. 

An error with severity code W (warning) has been detected. The Return Code 4, indicating a possibly defective object module, is to be 
transmitted to the invoking program by the terminating routine in IEX51 . 


3 


SERR 




1 


No significance. 

An error with severity code S (serious) has been detected. The Return Code 8, indicating an unsuccessful compilation, is to be transmitted 
to the invoking program by the terminating routine in IEX51 . 


4 


TERR 




1 


No significance. 

An error with severity code T (terminating) has been detected. The Compiler is to be terminated (after all recorded errors have been printed 
out), and the Return Code 16, indicating an unsuccessful compilation, is to be transmitted to the invoking program by the terminating 
routine in IEX51 . 


5 


PGR 
PROC 




1 


The PROGRAM option has been specified. The object module is a precompiled procedure (i.e. a sub-program). 

The PROCEDURE option has been specified. The object module is a precompiled procedure (i.e. a sub-program to be stored in a partitioned 
data set). 


6 


SHRT 
LNG 




1 


The SHORT option has been specified. Short precision is to be provided for real (or floating point) operands. 
The LONG option has been specified. Long precision is to be provided for real (or floating point) operands. 


7 


OPDT 




1 


The current operator in the source text was preceded by another operator - used in IEX50 only. 

The current operator in the source text was preceded by an operand which has been entered in the Operand Stack - used in IEX50 only. 


1 





SRCE 
NSRCE 




1 


The SOURCE option has been specified. Listings of the source module and the Identifier Table are to be printed. 
The NOSOURCE option has been specified. Listings of the- source module and the Identifier Table are not required. 


1 


LOAD 
NLOAD 




1 


The LOAD option has been specified. The object module is to be transferred to the SYSIN data set for subsequent input to the Linkage 
Editor. 

The NOLOAD option has been specified. The object module shall not be output on the SYSIN data set. 


2 


DCK 
NDCK 




1 


The DECK option has been specified. A card deck of the object module is to be generated on the SYSPUNCH data set. 
The NODECK option has been specified. A card deck of the object module is not required. 


3 


EBCDIC 
ISO 




1 


The EBCDIC option has been specified. The source module is in EBCDIC code. 
The ISO option has been specified. The source module is in ISO code. 


4 


ERR 




1 


No significance. 

The Program Interrupt Routine PIROUT (in the Directory) was entered from the control program by reason of a program interrupt. If a second 
program interrupt occurs, PIROUT is to transfer control to the terminating routine (IEX51002) in IEX51. 
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Byte 
No. 


Bit 
No. 


Switch 
Name 


Bit 
Value 


Significance 


1 


5 


TERM 



1 


No significance. 

The terminating routine (IEX51002) in IEX51 has been entered. 




6 


NOBUF 




1 


The Common Area (containing Source Buffer No. 1 and the Error Pool) has not been acquired. 
The Common Area has been acquired. 




7 


NOGO 



1 


The Compiler has been successfully initialized (by IEX10). 

Compilation is impossible because both the NOLOAD and NODECK options have been specified or because a reguisite data set has not been 
opened. The Compiler is to be terminated at the conclusion of IEX10 by XCTL to IEX21 (for print out of recorded diagnostic messages) and 
thence by XCTL to the terminating routine in IEX51 . 


2 





PRT 




1 


No significance 

An unrecoverable I/O error has occurred on the SYSPRINT data set. The Error Message Editing routine (in IEX21, IEX31 och IEX51) is to 
print diagnostic message No. 210 on the console typewriter, and the Compiler is to be terminated. 


; 


1 


SPIC 




1 


The modified source text (Modification Level 1 or 2) exceeds the buffer length and has been transferred to a utility data set. In IEX30, a 
second input buffer (in addition to the Common Area) and two output buffers are required. In IEX50, a second input buffer is required. 

The modified source text occupies less than a full buffer and has been transmitted (by a preceding phase) in the Common Area buffer. 


2 


NOPT 




1 


The Optimization Table has been constructed by IEX40. Two Optimization Table buffers are to be acquired at initialization of the Compila- 
tion Phase. 

No Optimization Table was constructed by IEX40. 


3 


PRTNO 




1 


The SYSPRINT data set was successfully opened. 

The SYSPRINT data set was not opened. The Error Message Editing routine is to print diagnostic message No. 201 on the console typewriter, 
and the Compiler is to be terminated. 


4 


NOSC 




1 


The Semicolon Count is active, i.e. it correctly reflects the position reached by the current phase in the source text. The Semicolon Count 
is to be included in the error pattern for error No. 209 (recorded by the Directory routine PIROUT), in the event of a program interrupt. 

The Semicolon Count is inactive, i.e. it Is not related to the operation being performed by the current phase. The Semicolon Count is to be 
omitted from diagnostic message No. 209. 


5 


TEST 
NOTEST 




1 


The TEST option has been specified. Code is to be generated in the object module which, if the execution time TRACE option is specified, 

will produce a printed Semicolon Count list, after execution of the object program, indicating the logical path taken through the object 

program. 

The NOTEST option has been specified. Object code is not to be generated to implement the Trace facility at object time. 


6 


SET60 




1 


The source module uses the 48 character set of the EBCDIC code. 

The source module uses the 60 character set of the EBCDIC code (recognized in IEX11 by detection of a semicolon in the translated source 
text). The same character set is to be used in printing all source text included in diagnostic messages. 


7 






(Not used) 
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CO 



"Program Context Matrix 
The matrix is referenced by the COMP routine in the Compilation Phase (I EX 50). 
Each matrix element specifies the compiler program to be entered for the given pair of operators in the source text and Operator Stack. 



"V. Source 
Stacl<X. 


Beta 

^gin 


Label 


Pi 
Phi 


Array 
Switch 


For 
Goto 


If 


Else 


[ 


Assign 


( 


Arith 
Bool 
Rel. 


Semi- 
colon 


Delta 


Epsilon 


Eta 


iQd 


Apos- 
trophe 


Omega 


<AH 
other op- 
erators > 


Colon 




Alpha 







4 


84 


84 


84 


84 


84 


84 


84 


84 


84 


84 


84 


84 


84 


84 


3 


84 


Beta, Pi 
Phi 







4 


4 


7 


7 


75 


7 


7 


7 


75 


25 


24 


16 


84 


84 


83 


84 


■ 75 


Begm 







29 


29 


6 


8 


75 


41 


12 


64 


75 


25 


28 


84 


84 


16 


84 


84 


75 


Semicolon 







26 


26 


6 


8 


75 


41 


12 


64 


75 


23 


28 


23 


23 


23 


84 


84 


75 




Then-s 







26 


26 


6 


75 


17 


41 


12 


64 


75 


18 


28 


18 


18 


18 


84 


84 


75 


Else-s 







26 


26 


6 


8 


75 


41 


12 


64 


75 


18 


28 


18 


18 


18 


84 


84 


75 


Assign 


27 


30 


26 


26 


27 


19 


20 


41 


21 


22 


22 


20 


28 


20 


20 


20 


84 


84 


75 


Switch 


84 


84 


84 


84 


84 


84 


84 


84 


85 


84 


84 


84 


28 


84 


84 


84 


84 


84 


84 


22 





1 


29 


29 


6 


8 


75 


-41 


12 


64 


75 


26 


28 


84 


81 


84 


84 


84 


75 


All other 
operators -- 


31 


30 


31 


31 


31 


31 


31 


31 


31 


31 


31 


31 


28 


31 


31 


31 


84 


84 


22 



> 


*i 


^ 





>d 


ti 


W 


3 




KJ 


H 


CJ 


X 


1 


< 


CO 


1 


o 


> 


o 


•• 


o 


f d 


o 


52 


""• 


O 




a 


^ 


I 




o 


» 


o 


CD 


±-K 


< 


h3 


H- 


W 


CO 


»-3 


CD 


£ 




1-3 




5d 


<-3 


H 


3 


X 


tr» 




K 




(jj 




u> 




CO 




o 




o 



*^ 



t --\ 



APPENDICES V-B, V-C; DECISION MATRICES 



APPENDIX V-b - Statement Context Matrix 

The matrix is referenced by the COMP routine in the Compilation Phase (IEX 50). 

Each matrix element specifies the compiler program to be entered for the given pair of operators in the source text and 
Operator Stack. 



^s. Source 
Stacl< s v. 


If 


( 


) 


[ 


] 


Comma 


Assign 


Step 
While 


Until 


<Any 
Arith. 
Optr./>,' 


<Any 
Bool./ 
Rel.Opti> 


Do 


EpsilonEta 
End Else 
Semicolon 


Colon 


Delta 


< All 

other op- 
erators > 




Goto 


34 


56 


75 


41 


75 


75 


75 


75 


65 


75 


75 


75 


62 


75 


28 


27 


Switch.- 


34 


56 


75 


41 


75 


59 


84 


75 


75 


75 


75 


75 


27 


84 


59 


27 




{ 


34 


64 


57 


41 


75 


57 


75 


75 


75 


33 


33 


75 


27 


75 


28 


27 


E 


34 


64 


75 


41 


38 


38 


75 


75 


75 


33 


75 


75 


27 


75 


28 


27 


Array 


84 


84 


84 


52 


84 


52 


84 


84 


84 


84 


84 


84 


27 


84 


54 


84 


< 


34 


64 


61 


41 


75 


61 


75 


75 


75 


33 


33 


75 


27 


75 


28 


27 


For 


75 


75 


75 


41 


75 


75 


40 


75 


75 


75 


75 


27 


27 


75 


28 


27 


For.= | 


34 


64 


75 


41 


75 


43 


75 


43 


75 


33 


75 


43 


27 


75 


28 


27 


Step. 


34 


64 


75 


41 


75 


75 


75 


75 


45 


33 


75 


27 


27 


75 


28 


27 


Until 


34 


64 


75 


41 


75 


47 


75 


75 


75 


33 


75 


47 


27 


75 


28 


27 


While 


34 


64 


75 


41 


75 


49 


75 


75 


75 


33 


33 


49 


27 


75 


28 


27 


Colon 


34 


64 


75 


41 


51 


51 


75 


75 


75 


33 


75 


75 


27 


75 


28 


27 


4 


34 


64 


75 


41 


75 


75 


84 


75 


75 


33 


75 


75 


27 


36 


28 


27 


<AII other 
operators >] 


34 


75 


75 


75 


75 


75 


75 


75 


75 


75 


75 


75 


71 


75 


28 


71 



APPENDIC V-c - Expression Context Matrix 

The matrix is referenced by the COMP routine in the Compilation Phase (IEX 50). 

Each matrix element specifies the compiler program to be entered for the given pair of operators in the source text and 
Operator Stack. 



^v^Source 
StackX^ 


Not 


Equiv 


[mpj 


And 


Or 


( 


) 


[ 


If 


Then 


Else 


+ 


*A 


Power 


<Rela- 

tional 

Optr.> 


<AII 
other op- 
erators > 


Not 


75 


77 


77 


77 


77 


64 


77 


41 


73 


77 


77 


66 


67 


67 


67 


77 


Equiv 


65 


76 


67 


67 


67 


64 


76 


41 


73 


76 


76 


66 


67 


67 


67 


76 


ImpJ. 


65 


76 


76 


67 


67 


64 


76 


41 


73 


76 


76 


66 


67 


67 


67 


76 


And 


65 


76 


76 


76 


67 


64 


76 


41 


73 


76 


76 


66 


67 


67 


67 


76 


Or " 


65 


76 


76 


76 


76 


64 


76 


41 


73 


76 


76 


66 


67 


67 


67 


76 


( 


65 


67 


67 


67 


67 


64 


68 


41 


80 


27 


27 


66 


67 


67 


67 


27 


If If^s 


65 


67 


67 


67 


67 


64 


75 


41 


65 


78 


86 


66 


67 


67 


67 


27 


Then 


65 


67 


67 


67 


67 


64 


75 


41 


73 


75 


87 


66 


67 


67 


67 


27 


Else 


65 


67 


67 


67 


67 


64 


79 


41 


73 


79 


72 


66 


67 


67 


67 


79 


Monadic 
Minus 


75 


63 


63 


63 


63 


64 


63 


41 


73 


63 


63 


63 


63 


67 


63 


63 


+ 


75 


69 


69 


69 


69 


64 


69 


41 


73 


69 


69 


69 


67 


67 


69 


69 


* /* 


75 


69 


69 


69 


69 


64 


69 


41 


73 


69 


69 


69 


69 


67 


69 


69 


Power 


75 


69 


69 


69 


69 


64 


69 


41 


73 


69 


69 


69 


69 


69 


69 


69 


Relational 
Operator^ 


75 


69 


69 


69 


69 


64 


69 


41 


73 


69 


69 


66 


67 


67 


74 


69 


<AII other 
operators > 


65 


67 


67 


67 


67 


64 


70 


41 


70 


75 


70 


66 


67 


67 


67 


76 
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APPENDIX VI: COMPILE TIME ERROR DETECTION 



The following table lists the routines Error Message Editing routine in Load 
which detect syntactical errors in each of Modules IEX21, IEX31, and IEX51) are 

the phases of the Compiler. The correspond-* | listed in OS ALGOL Programmer y s Guide . 
ing diagnostic messages printed out (by the 

Routine (s) which record 
the error (on call from 
the detecting routine) 



Syntactical 


Severity 




Error Numh 


>er Code 
(IEX00) 




Routine (s) which detect the error* 


Directory 




209 




T 




PIROUT 


210 




T 




SYNAD 


Initialization 


Phase 


(IEX10) 


200 




W 




Option processing 

( ENDS I ZE , NOTFOUND , NXTPAR) 


201 




T 




TSTPUNCH,TSTIN, TSTDCBRT 


202 




W 




Test if SYSLIN Open 


203 




W 




TSTPUNCH 


204 




T 




INEXRT 


205-A 




W 




LINEXRT 


-B 




W 




PCHEXRT 


-C 




W 




PRTEXRT 


206 




W 




ERROR200, ERROR208 


207 




W 




DDNAMES 


208 




W 




Option Processing (FNDSIZE) 


Scan I/II 


Phase (IEX11) 




1 




W 




TESTLOOP, LIST, APOSTROF 
NPAFTAPO 


2 




w 




POINT 


3 




w 




LABEL, LETDEL, COLONLST 


4 




T 




LETDEL 


5 




S 




TYPE, TYPESPEC, ARRAY, SWITCH, 
PROCID, IDCHECK 


6 




T 




LABEL 


7 




W 




LABEL 


8 




W 




LABEL 


10 




S 




BEGPROC, END(PREND), SEMCO, 
STATE, FOR, CODE 


11 




S 




END, SEMCO, STARTDEL, TYPESPEC 


12 




w 




DELIMIT 


13 




w 




EROUT 


14 




s 




EROUT 


15 




w 




CODE 


16 




s 




TYPE, ARRAY, SWITCH, PROCID, 
IDCHECK 


17 




s 




SEMCO 


18 




w 




COM 


19 




w 




SEMCO, WARNING 


20 




T 




BEGIN, FOR, PROCEDUR 


21 




s 




BEGI 


22 




T 




BEGI, PROCEDUR 


23 




s 




STRING 


24 




s 




CODE 


25 




s 




SPEC 


26 




s 




I DCHECK ( I DVALCHK ) 


27 




w 




IDCHECK (NOTFOUND) 


28 




s 




VALUE 



ERROR200 



FULLPOOL 
ERROR208 

ERR1, ERR7 

ERR5 

ERROR3 

ERR4 

IERSPEC, ERR7 

ERR4 
ERR2 
ERR7 
ERROR! 

ERR8 

ERR6 

ERRB 

ERR2C 

ERR7 

IER, ERR2, ERR2E 

ERR7 

ERR7 

ERR7 

ERR4 

ERROR21 

ERR4 

ERR7 

ERR7 

ERR7 

ERR2E 

ERR2E 

ERR7 



280 



29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

41 

42 

43 

44 

212 

213 

215 

216 



W VALUE (VALDLB2 ) 

W VALUE(VALDLB2) 

W ARRAY 

S SEMCLST 

T SE MCL ST , SL ASHLST 

S SLASHLST 

W POINTLST 

T PROCID(PROCFIN) 

S PROCID(PROCDEL) 

T PBLCKEND 

S ENDMISS 

T FOR 

W FIRSTBEG 

S END, READRRUT, TED 

T ENDMISS 

T ERROR1 

T ITABCLEAR, PROCID(TPROHEAD) 

T COB 

S LABEL, SWITCH, PROCEDUR 



ERR 7 

ERR2E 

ERR 2 

ERR2 

ERR2 

ERR 2 

ERR5A 

ERR2B 

ERR2B 

ERR4 

ERRDR39 

ERR 4 

ERR7 

ERR9 

ERR4 

ERRO 

ERR 4 

ERR4 

ERR 7 



Ide n tifier Table Manipulation Phase (IEX2Q) 



45 

47 

212 

214 



S 


READBLK 


s 


ALLOSTOR 


T 


ERRNAME 


S 


ALLOSTOR 



E43 
E45 
E0 
E44 



Scan III Phase (IEX30) 



80 

81 
82 
83 
84 
85 
86 
87 
88 
89 



S LETTER, DIGIT19, DIGIT , DECPOIN, 

SCAQL, SCAFACT, QUOTE 

S IDENT 

S REALCON 

W INTCON 

W REALCON 

S SWILA 

S I NTH AN, REALHAN 

W TABOFLO 

W IDENT 

W SWILA 



ERROR 1, QTORLT, 

INCOROP 
MOVERRO 
MOVERRO 
MOVERRO 
MOVERRO 
INCOROP 
MOVERRO 
MOVERRO 
MOVERRO 
MOVERRO 



Compilation Phase (IEX5 0) 



160 
161 
162 
163 
164 

165 
166 
168 
169 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 



S 
S 
S 
S 
S 

S 
S 
S 
S 
S 
T 
S 
S 
S 

s 
s 
s 
s 
s 
s 
s 
s 
s 

T 



CP31, CP66, CP73, CP74, CP86 
CP31„ CP73, CP74, CP86 
CP21, CP67, CP69, OPDTEST 
CP63, CP6 9, TARITHM 
CPO, CP4, CP6, CP34, CP54, 

CP56, CP65, CP80 
CP79 
ERR166 
CP61, CP64 
CP3 

CP21, CP32 
CPO, CP84 
CP64 

CP59, CP62 
CP12, CP57, CP64 
CP8, CP24 
CP87,CP79 
CP38 
CP38 
CP41 

CP64, PLPRST 

CP41 

CP69 

STACKOFL 



SERR4 
SERR4 
SERR4 
SERR2 
SERR4 

SERRl 
SERR1 
SERR3 
SERR2 
SERR1 
SERR1 
SERR1 
SERR2 
SERR3 
SERR3 
SERR1 
SERRl 
SERR1 
SERRl 

SBRR3 
SERR3 
SERR3 ; 
SERRl 
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CP57, CP61, CP64, PLPRST, 

ARRTESTl 
CP61 



187 

188 
189 
190 
191 
192 
193 
194 
195 
196 
214 
216 



O bject Time Table Output and Termination (IEX51) 
188 S DSTAB Construction 

Diagnos tic Output (IEX21, IEX31, IEX51) 
211 T WDIRET1 



s 


CP61 


s 


CP12, CP40 


s 


CP51, SNOTSP 


s 


CP2 


s 


CP20 


s 


CP27, CP69, CP75 


s 


CP27, CP75 


s 


ARRTESTl 


s 




s 


LATRES 



SERR1 

SERR1 

SERR1 

SERR1 

SERR1 

SERR1 

SERR1 

SERR2/3 

SERR3 

SERR3 

SERRSP 

SERR1 



♦The name enclosed by parentheses indicates the particular locality within the routine in 
which the error is detected. 
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APPENDIX VII: OBJECT TIME ERROR DETECTION 



The following table lists the modules in storage as soon as an error is detected) 
which object time errors are detected. The I axe* listed in the OS ALGOL Programmer ' s 
corresponding diagnostic messages printed Guide- , 
out (by module IHIERR — * loaded in main 

Module(s) which detect the error Module which prints 

Erro r number (routine name inside parenthesis) the error message 

IHISYS(SYSACT8) , IHIIOR (EVDSN) IHIERR 

1 IHIIOR (CONVERT) IHIERR 

2 IHISYS (SYSACT4, SYSACT13) , IHIIOR IHIERR 

(OPEN, CLOSE, NEXTREC) 

3 IHIIOR (CLOSE, NEXTREC, OPEN) IHIERR 

4 IHIIOR(ENTRYNOTTAB) IHIERR 

5 IHIIBO, IHIIDE, IHIISY, IHIIOR IHIERR 

(ENDOFDATA) 

6 IHIIDE IHIERR 

7 IHIIOR (OPEN) IHIERR 

8 IHIOSY IHIERR 

9 IHISYS IHIERR 

10 IHIGPR(GET), IHISYS, SYSACTl, IHIERR 

SYSACT2, SYSACT3, SYSACT4, SYSACT5, 
SYSACT13, SYSACT14, SYSACT15) 

11 IHISYS (SYSACT 6, SYSACT8) IHIERR 

12 IHISYS (SYSACTl, SYSACT3 , SYSACT5 , IHIERR 

SYSACT7, SYSACT 9, SYSACT 11, 
SYSACTl 3) 

13 IHISYS (SYSACT 2, SYSACT6, SYSACT8 , IHIERR 

SYSACT10, SYSACTl 2, SYSACTl 4, 
SYSACTl 5) 

14 IHIGPR(GET), IHISYS ( SYSACT4) IHIERR 

15 Generated object module IHIERR 

16 Generated object module IHIERR 

17 Generated object module IHIERR 

18 IHIFSA(GETMSTO) IHIERR 

19 Generated object module IHIERR 

20 IHIFS A (PROLOG), IHIGPR( INPUT, OUTPUT) IHIERR 

21 IHI FSA (PROLOG) , IHIGPR (INPUT, OUTPUT) IHIERR 

22 Generated object module IHIERR 

23 IHILSQ, IHISSQ IHIERR 

24 IHI LEX, IHISEX IHIERR 

25 IHILLO, IHISLO IHIERR 

26 IHISSC IHIERR 

27 IHILSC IHIERR 

28 IHIFSA(PIEROUT) IHIERR 

29 IHIFSA(PIEROUT) IHIERR 

30 IHIFSA(PIEROUT) IHIERR 

31 IHIFSA(PIEROUT) IHIERR 

32 IHIIOR (SYNAD) IHIERR 

33 IHIFSA(PIEROUT) IHIERR 

34 IHIFSA(CSWEl) IHIERR 

35 IHIFII, IHIFRI, IHIFDI, IHIFRR, IHIFDD IHIERR 

36 IHIFSA( PROLOG, CAP1, CSWEl, LOADPP) IHIERR 

IHIGPR (CAP1GP) 

37 IHIIOR (OPEN) IHIERR 

38 IHIGPR(INPUT, OUTPUT), IHILOR, IHIERR 

IHIOBO, IHIOIN, IHISOR 

3 9 IHIGPR (GET, PUT) IHIERR 

40 IHIFSA(CNVRDI/ENTIER) IHIERR 

41 IHIFSA(ALGIN) , IHIIOR (OPEN) , IHIGPR ( OPE NGP) IHIERR 
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42 IHIFSA(ALGIN) IHIERR 

43 IHIGPR(GET, PUT, INPUT, OUTPUT) IHIERR 
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APPENDIX VIII 



Compile Time Work Area Sizes, as a Function of the SIZE Option 



CD 



a 
o 

I 



O 

> 

fl> 
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< 


< 


< 


< 


< 


< 


< 


< 


< 


< 


< 


SIZE Options: 


51,200 


59,392 


67,584 


77,824 


90,112 


104,448 


120,832 


139,264 


159,744 


184,320 


212,992 


16,777,216 


Work Areas and Buffers 


























Identifiers Table: 


























- in IEX10 

- in IEX20 

- in IEX30 


8,184 

25,000 

8,800 


11,924 
29,500 
11,500 


17,754 
36,500 
15,000 


21,054 
41,000 
16,000 


23,584 
48,000 
16,000 


23,584 
50,000 
16,000 


32, 736 
62,000 
19,000 


32, 736 
75,000 
25,000 


32, 736 
95,000 
38,000 


32,736 

115,000 

58,000 


32, 736 
135,000 
58,000 


32,736 

162,000 

58,000 


Subscript Table: 


























- in IEX30 

(with track overflow) 

- in IEX40 


1,400 
14,000 


1,400 
15,400 


1,400 
18,200 


1,400 
21,000 


1,400 
23,800 


1,400 
25,200 


1,400 
(2,800) 
30,800 


1,400 
(7,000) 
35,000 


1,400 
(7,000) 
35,000 


1,400 
(7,000) 
56,000 


1,400 
(7,000) 
56,000 


1,400 
(7,000) 
56,000 


Left Variable Table: 


























- in IEX30 

(with track overflow) 

- in IEX40 


800 
7,200 


800 
8,000 


800 
9,600 


800 
11,200 


800 
12,800 


800 
13,600 


1,600 
16,000 


1,600 
(4,800) 
19,200 


1,600 
(4,800) 
24,000 


1,600 
(6,400) 
25,600 


1,600 
(6,400) 
25,600 


1,600 
(6,400) 
25,600 


Optimization Table 


























- in IEX40 and IEX50 


224 


910 


1,792 


1,792 


1,792 


1,792 


1,792 


1,792 


1,792 


1,792 


1,792 


1,792 


Source Text Buffers 


























- used in IEX1 1, -30, -50 
(with track overflow) 


1,024 


1,536 


2,000 
(2,048) 


2,000 
(4,096) 


2,000 
(6,144) 


2,000 
(6,144) 


2,000 
(8,192) 


2,000 
(8,192) 


2,000 
(8,192) 


2,000 
(8,192) 


2,000 
(8,193 


2,000 
(8,192) 


Critical Identifier Table 


























- in IEX30 


450 


450 


900 


900 


1,350 


1,350 


2,250 


3,600 


3,600 


3,600 


3,600 


3,600 


Operator-Operand Stack 


























- in IEX50 


768 


3,072 


6,144 


6,144 


6,144 


6,144 


6,144 


6,144 


6,144 


6,144 


6,144 


6,144 


Error Pool 


600 


1,000 


1,304 


1,600 


2,000 


2,000 


2,000 


2,000 


2,000 


2,000 


2,000 


2,000 


- used in all phases 


























Maximum Block Sizes 


400 

455 

400 

80 


400 
455 

400 


400 
455 
400 
400 


400 
455 
400 
400 


1,600 
455 
400 
400 


1,600 
1,820 
3,200 
1,600 


1,600 
1,820 
3,200 
1,600 


1,600 
1,820 
3,200 
1,600 


1,600 
1,820 
3,200 
1,600 


1,600 
1,820 
3,200 
1,600 


3,200 
3,640 
3,200 
3,200 


3,200 
3,640 
3,200 
3,200 


SYSIN 
SYSPRINT 
SYSLIN 
SYSPUNCH 
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APPENDIX IX- A; STORAGE MAPS OF THE CONSTITUENT LOAD MODULES OF THE ALGOL COMPILER 



The ALGOL Compiler is composed of 
following ten load modules or phases: 



the 



Load Module 

Name Phase Name 

IEXOO Directory 

IEX10 Initialization Phase 

IEX11 Scan I/II Phase 

IEX20 Identifier Table Manipulation 

Phase 

IEX21 Diagnostic Output 

IEX30 Scan III Phase 

IEX31 Diagnostic Output 

IEX4 Subscript Handling Phase 

IEX50 Compilation Phase 

IEX51 Termination Phase 



The following tables indicate the con- 
tents of main storage in each cf the phases 
of the Compiler, in terms of major rou- 
tines, work areas and tables. The flow- 
chart which outlines each routine is shewn 
in the right hand column. 



IEXOO - Directory 



Note: The Directory (Load Module IEXOO) is resident in main storage during execution 
of each of the other nine load modules. 



r r 

| Control Section | 

|. + 



T 1 

(Flowchart | 
1 ., 



Contents 



IEX00000 


| Initial Entry Routine | 


003 




| Final Exit Routine | 


003 




| Save Area | 






| Program Interrupt Routine (PIROUT) | 


004 




|End of Data Routines (EODAD1/-2/-3/-IN) | 


005 




]I/0 Error Routine (SYNAD, SYNPR) | 


005 




| Print Subroutine (PRINT) | 


006 




|Data Control Blocks for SYSPRINT, SYSLIN, SYSPUNCH, | 






|SYSUT2 and SYSUT3 | 

- 1 — - J. - 




IEX00001 


t T 

(Save Area | 




(Common 


| Communication Area, containing: | 




Work Area) 


|DCB addresses, EOD Routine addresses, HC0MPM0D Control ] 
JField (displ. x '80'), Misc. Control Information, Semicolon| 
| Count (displ. x ' 9A 1 ), Area Size Table, Printed Output | 
| Headings | 
(Preliminary Error Pool | 
jData Control Block for SYSIN | 
|Work Area | 
|Data Control Block for SYSUT1 Work Area | 





JL JL J 






286 



IEX10 - Initialization Phase 



r — t t 1 

| Control Section | Contents | Flowchart | 
|. + + 1 

| IEX00000 | (See IEXOO - Directory) j j 

j. + 1 ^ 

| IEX00001 | Save Area | j 

| (Common j Communication Area (see IEXOO) | j 
| Work Area) |Work Area | j 
| | Data Control Block for SYSIN, Work Area | j 
| (Data Control Block for SYSUT1, Work Area | | 

h + + ., 

| IEX10000 | Compiler Initialization Routine | 007-010 | 

L JL X J 

r 1 

(Error Pool | 

(Source Text Buffer 1 | 

L . J 
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IEX11 - Scan I/II Phase 



T 1 

Flowchart 

+ 1 



Control Section 



Contents 



IEX00000 



(See IEXOO - Directory) 



H 



IEXOO 001 
(Common 
Work Area) 



Save Area 

Communication Area (see IEXOO) 

Work Area 

Data Control Block for SYSIN 

Work Area 

Program Block Number Table (PBTAB1) 

Data Control Block for SYSUT1 

Scope Table (SPTAB) 

Group Table (GPTAB) 



IEX11000 



Initialization Routine 

Translation and Address Tables 

Main Loop Routine (TESTLOOP) 

Blank and Transfer Operator Routines (BLANK and TRANSOP) 

Point and Statement Routines (POINT and STATE) 

Apostrophe Routine (APOSTROF) 

Colon, Label and Letter Delimiter 

Routines (COLON, LABEL and LETDEL) 

Semicolon Routine (SEMCO) 

Error Recording Routines 



013 

013 

014 
015 

015 
016 



IEX11001 



Change Output Buffer Subroutine (COB) 

Change Input Buffer Subroutine (CIB) 

Delimiter Routine (DELIMIT) 

Delimiter Error Routine (EROUT) 

NORMAL, BOLCON, GIF, TED, and BEGIN Routines 

Block Begin Routine (BEG1) 

End Routine (END) 

For Statement End and Program Block 

End Routines (FOREND and PBLCKEND) 

Comment Routine (COM) 

For Statement Begin Routine (FOR) 

Type Declaration/ Specification Routine (TYPE) 

Invalid Identifier Routine (IER) 

Code Routine (CODE) 



017 
017 
018 
019 
020 
022 
021 

022 
032 
020 
023 
028 
020 



IEX11002 



Parameter Specification Routine (SPECENT or IDCHECK) 

Value Specification Routine (VALUE) 

Type -Array and Array Dec la rat ion/ Specification Routines 

(TYPEARRY and ARRAY) 

Array/Switch List Routine (LIST) 

Switch Declaration/Specification Routine (SWITCH) 

String Declaration Routine (STRING) 

Type- Procedure and Procedure Declaration 

Routines (TYPPROC and PROCEDUR) 

End of Data Exit Routine (ENDMISS) 



031 
031 

024 
026 
025 
033 

029-030 
034 



IEX1100 3 



Termination Routine (TERMOR or EODADIN) 
Object Code Generate subroutine (GENERATE) 



034 
122 



i 
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I C ons t ant Pool 
(Identifier Table 
(Identifier Table Buffer 
j Scope Handling Stack 
(Source Text Buffer 2 



| Error Pool 

(Source Text Buffer 1 



IEX20 - Identifier Table Manipulation Phase 



r t 

Control Section 



Contents 



Flowchart 
+ 1 



IEX00000 



(See IEXOO - Directory) 



H 



IEX00001 
(Common 
Work Area) 



Save Area 

Communication Area (see IEXOO) 

Program Block Table II (PBTAB2) 

Program Block Number Table (PBTAB1) 

Data Control Block for SYSUT1 

Scope Table (SPTAB) 

Group Table (GPTAB) 



IEX20000 



Initialization Routine 

Read and Scan Identifier 

Table Routine (READBLK) 

Storage Allocation Routine (ALLOSTOR) 

Write Identifier Table Routine (WRITITAB) 

Termination Routine 



036 

036 
037 
038 
38 



(Address Table 

(Identifier Table 

j. 

| Error Pool 

(Source Text Buffer 1 

L 



Appendix IX- a: Storage Maps of the Constituent Load Modules 28 9 



IE X21 - £i agnostic Output 



r r T 1 

| Control Section | Contents | Flowchart | 

j. + + ^ 

I IEX00000 | (See IEXOO - Directory) j j 

I. + + ^ 

j IEX00001 | Save Area | | 

| j Communication Area (see IEXOO) j j 

| | Program Block Table II (PBTAB2) | | 

| | Work Area | j 

| (Data Control Block for SYSUT1 | | 

| | Scope Table (SPTAB) | | 

| j Group Table (GPTAB) | j 

|. + + ) 

| IEX21000 (Linking Routine | 040 | 
j. + + ^ 

| IEX21001 (Message Pool | | 

I. + + ^ 

I IEX60000 | Error Message Editing Routine |040-043 | 

L X J J 

r 1 

(Error Pool | 

| Source Text Buffer 1 | 

L J 



IEX30 



Scan III Phase 



Control Section 



Contents 



Flowchart 

+ < 



IEX00000 



(See IEXOO - Directory) 



H 



IEX00001 
(Common 
Work Area) 



Save Area 

Communication Area (see IEXOO) 

Program Block Table II (PBTAB2) 

For Statement Table (FSTAB) 

Data Control Block for SYSUT1 

Scope Table (SPTAB) 

Group Table (GPTAB) 



IEX30000 



Tables and Constants 
Initialization Routine (INITIATE) 
General Test Routine (GENTEST) 
Apostrophe Routine (QUOTE) 

Block Begin, Procedure Declaration,, For Statement 
and Program Block End Routines (BETA, PI PHI, FOR, and 
EPSILON) 

For Statement End and For List End Routines (ETA and DO) 
While, Step and Divide/Power Routines (WHILE, STEP 
and DIPOW) 

Semicolon/Dela, Switch and Array Routines (SEMIDELT r 
SWITCH and ARRAY) 
Program End Routine (OMEGA) 

Opening Bracket, Comma and Closing Bracket Routines 
(OPBRACK, COMMA and CLOBRACK) 



046 
046 
049 



047 
049 

047 

051 
050 

051 
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r - — 




T 




T 




IEX30001 


[Identifier Test, ITAB Search and Identifier ( 

| Routines (LETTER, IDENT, and FOLD 

| Non-Critical Identifier, Procedure/Parameter 


Classification 
and 


| 057 






| Switch/Label Routines (NOCRI, PROFU, and SWILA) 


| 058 






| Critical Identifier Routine (CRITI) 




| 059 






|CRIDTAB Entry Subroutine (CRIMA) 




| 060 














(Subroutines (CRIFLOW, DELCRIV f and CRIFODEL) 




| 061 






(Subscript Scan Subroutine (SUCRIDEL) 




| 055 






|LVTAB Entry Subroutine (LETRAF) 




| 062 






(Subscript Test Subroutine (SUSCRITE) 




| 052-053 






(Operand Test and Multiplier -Operand Subrouti: 


nes 








| (OPERAND and SUBMULT) 




| 054 






|SUTAB Entry Subroutine (SUTABENT) 




| 053 






(Change Output Buffer and Change Input Buffer 


Subroutines 








| (OUCHA and ICHA) 




| 049 






| Invalid Operand Routine (INCOROP) 




| 070 






| Error Recording Subroutine (MOVERRO) 










|Read ITAB Subroutine (ITABMOVE) 




| 048 


I 




| Write SUTAB/LVTAB Subroutine (WRITE) 
1 ...- ..,_,....,.„ _ ., , - ,. _.- 




| 062 
i- 


r 


IEX30002 


1 * 

| Non-zero Digit and Zero Digit Routines 
| (DIGIT19 and DIGITO) 
(Decimal Point Routine (DECPOIN) 
| Scale Factor Routine (SCAFACT) 
(Integer Conversion Routine (INTCON) 
(Real Conversion Routine (REALCON) 
| Integer Handling Routine (INTHAN) 
|Real Handling Routine (REALHAN) 
(Generate Object Code Subroutine (GENTXT) 




t — 

| 064 
| 065 
| 066 
| 067 
| 068 
| 067 
| 069 
| 122 



| Constant Pool 

(Identifier Table 

(Source Text Buffers 2-4 

(Critical Identifier Table 

(Subscript Table 

| Left Variable Table 

k __ 

| Error Pool 

(Source Text Buffer 1 

L 



IEX31 - Diagnostic Output 



r t t T 

I Control Section | Contents | Flowchart | 
t + + ^ 

| IEX00000 J (See IEX00 Directory) | | 
j. + + ) 

I IEX00001 (Save Area | | 
| I Communication Area (see IEX00) | | 

| (Program Block Table II (PBTAB2) | | 
| (For Statement Table (FSTAB) | | 

| I Work Area | | 
t + + { 

| IEX31000 (Linking Routine j 071 j 
j. + + ^ 

| IEX31001 (Message pool j j 
j. + + j 

* | IEX60000 (Error Message Editing Routine | 071 | 

P L ± L J 
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I Error Pool 

| Source Text Buffer 1 

L 



IEX 40 - Subscript Handling Phase 



r t- 

Control Section | 



Contents 



j Flowchart | 
-+ 1 



IEX00000 j (See IEXOO • Directory) 
+ 

IEX00001 | Save Area 

(Common j Communication Area (see IEXOO) 
Work Area) (Program Block Table II (PBTAB2) 
| For Statement Table (FSTAB) 
| Address Table (ZADSTA) 
| Entry Count Table (ZCOSTA) 
| Work Area 



'i 



IEX40000 (Initialization Routine 
(Read SUTAB Routine 
| Scan SUTAB Routine 
(Sort SUTAB Routine (SORTSU) 
| Read and Sort LVTAB Routine (SORTLE) 
(Construct OPTAB Routine (OPTAB) 
(Termination Routine (TERMIN) 
(Write OPTAB Subroutine (OTACHA) 
| Read SUTAB/LVTAB Subroutine (READ) 
| Sort SUTAB/LVTAB Subroutine (SORT) 



073 
073 
073 
073 
074 
075 
076 
076 
074 
074 



IEX40001 



(Compilation Phase Initialization Routine 



078 



(Optimization Table (OPTAB) Buffers 1 and 2 

(Subscript Table (SUTAB) and Left Variable Table (LVTAB) 

(Work Area 



h 

| Error Pool 

(Source Text Buffer 1 

L . - 
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IEX50 - Compilation Phase 



Control Section 



Contents 



Flowchart 



f 



IEX00000 



(see IEXOO - Directory) 



IEX00001 
( Common 
Work Area) 



Save Area 

Communication Area (see IEXOO) 
Program Block Table II (PBTAB2) 
For Statement Table (FSTAB) 
Program Block Table III (PBTAB3) 
Subscript Table - C (SUTABC) 
Work Area 



IEX50000 



Initialization Routine 

Scan to Next Operator and Compare Routines (SNOT and COMP) 

Change Input Buffer and Get Next OPTAB Entry Subroutines 

(JBUFFER and NXTOPT) 

Error Recording Subroutines 

Generate Call for Integer-Real and Real- Integer Conversion 

Subroutines (TRINRE and TRREIN) 

Generate Object Code Subroutine (GENERATE) 

Generate Store Registers Subroutine (CLEARRG) 

Operand Recognizer Subroutine (OPDREC) 

Update DSA Pointer (MAXCH) and Semicolon Handling ( SCHDL) 

Subroutines 

Subroutines: ROUTINE1 - ROUTIN15 

Decompose Operand (DECOMP), Stack All-purpose Operand 

(STACKAPI) , P.B.No. Handling (PBNHDL) , Parameterless 

Procedure (PLPRST), Generate Load Operand (LDVWPLC) , 

Update Stack Pointers (MOVEOPTK and MOVECPDK), 

Arithmetic Test (TARITHM) , Reserve Label Table 

Entry (LATRES) , Array /Procedure Test (ARRTEST1 ) and Operand 

Test (OPDTEST) Subroutines 



079 

121 
123 



122 
120 



IEX50001 



Decision Matrices 



IEX50002 



Compiler Programs handling for statements: CP6, CP40, 
CP43, Cp45, CP47, CPU9, and CP81 



082-117 



IEX50003 



Compiler Programs handling blocks and compound statements f 
procedure declarations , array declarations, switch dec- 
larations , goto statements, subscripted variables , switcch 
designators f and close of source module: CPO, CPl f CP3 f 
CPU, CP7, CP8, CP16, CP24, CP25 f CP36, CP38, CP41 , CP51, 
Cp52, CP54, CP56, CP59 , CP62, and CP85 



080-118 



IEX5000 4 



Compiler Programs handling assignment statements and pro- 
cedure calls: CP12, CP19, CP20, CP21, OP22, CP23, CP33, 
CP34, CP57, CP61, CP64, CP71, CP8 3 and CP8 4 



083-118 



IEX50005 



Compiler Programs handling conditional statements and 
conditional expressions , boolean expressions, and logical 
errors: CP17, CP18, CP26, CP27, CP28, CP29 r CP31, CP63, 
CP65, CP66, CP67, CP68 , CP70, CP72, CP73 f CP74, CP75 f 
CP76, CP77, CP78, CP79, CP80, CP86 and CP87 



084-119 



IEX50006 



Compiler Program No. 
operators 



69 (CP69) -handling of arithmetic 



107-112 
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(Source Text Buffer 2 
| Optimization Table Buffers 
j Opera tor -O pe ra nd St a ck 
I Label Address Table 



| Error Pool 

| Source Text Buffer 1 

L 



IEX51 -Termination Phase 





~T 




r 


Control Section 


1 


Contents 


| Flowchart 
— X — 




t 




T 


IEX00000 


| (See IEXOO - Directory) 




i 

«. i 




T 




*" T 


IEX00001 


(Save Area 




1 


( Common 


| Communication Area (see 


IEXOO) 


1 


Work Area) 


| Program Block Table III 


(PBTAB3) Work Area 


1 




_ + 




+ 



IEX51000 | Generate Label Address Table Routine (TRM1) 
(Generate Program Block Table Routine (TRM2) 
| Construct Data Set Table Routine (TRM10) 
| Generate Data Set Table Routine (TRM23) 
(Generate Address Table Routine (TRM24) 
| Generate END Record Routine (TRM35) 
| Print Storage Requirements Routine (TRM51) 
| Error 188 Routine (ERR188) 
| Tables and Constants 
| Generate Object Code Subroutine (GENERATE) 



125 



127 



122 



IEX51M00 


_„ + 

| Message* Pool 


1 

_ j. 




IEX51002 


T 

| Compiler Termination Routine 

j. _ _ — — _ _ 


— — — - — t — 

I 

_ 4. - 


126 


IEX60000 


T ^ — 

| Error Message Editing Routine 

JL_. . 


— — — .j. 

1 

J.— 


128 



| Source Text Buffer 2 

| Optimization Table Buffers 

j Opera tor- Ope rand Stacks 

j Label Address Table 

I— 



(Error Pool 
Source Text Buffer 1 



i 
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APPENDIX IX-B; STORAGE MAP OF THE OBJECT MODULE (AT EXECUTION) 



j Module | 



Contents 



IHIFSA 



Generated Code 
Constant Pool 
Instructions 
Label Address Table 
Program Block Table 
Data Set Table 
Addresses 



— i 

I 
— I 



Fixed Storage Area 
Common Data Area 
Save Area 
Work Area 
Branch List 

Type Conversion Subroutines 
(CNVIRD, ENTIER, and CNVRDI) 
Get Main Storage Subroutine 
(GETMSTO) 

Call Actual Parameter Routines 
(CApl and CAP 2) 
Prologue Routine (PROLOG) 
Value Call Subroutine (VALUCALL) 
Return Routine (RETPROG) 
Epilogue Routine (EPILOG) 
Standard Procedure Declaration 
Routine (SPDECL) 

Call Switch Element Routines 
(CSWE1 and CSWE2) 

Load Precompiled Procedure Sub- 
routine (LOADPP) 
Trace Subroutine (TRACE) 
Program Interrupt Routine 
(PIEROUT) 



J h 



IHIIOR 
t 



Initial Entry Routine (IHIFSAIN) 
Initialization Routine (ALGIN) 
Termination Routine (TERMNTE) 



IHIERR 



H- 



I/O Procedure Subroutine Pool 



Standard I/O Procedures and 
Mathematical Functions invoked by 
the object module 



H 



Message Printing Routine (IHIERR) 
Message Pool 



H 



Precompiled Procedure 
Constant Pool 
Instructions 
Label Address Table 
Program Block Table 
Addresses 



H 



Standard I/O Procedures and 
Mathematical Functions invoked by 
the precompiled procedure (s) 



H 



Data Storage Area(s) 
Array Storage Area(s) 
Data Control Block (s) 



Input/Output Buffer (s) 
Return Address Stack (RAS) 



J 
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APPENDIX X; SUMM&RY OF COMPILER PROGRAMS 



The following table summarizes the com- 
piler programs of the Compilation Phase 
(IEX50), in terms of the operator combina- 
tions which activate each program, the 
operands in the Operand Stack at entry and 
exit, the errors detected, and the subrou- 
tines called. 



Operators are defined in the notes 
accompanying Appendix I-d. The internal 
names of all operands declared or speci- 
fied in the source module are listed in 
Appendix II. Other special-pur pcse oper- 
ands stacked by the compiler programs are 
explained in the following key. 



Operand Name 
API 

COUNT 

DSN 
DISPL 

FLAG 

FSN 



Content 

Five-byte all-purpose inter- 
nal name 

Literal count of parameters, 
dimensions or components 
Data Set Number 
Displacement of a reserved 
storage field in the current 
Data Storage Area 
Indicator whether an array 
element has been pre- 
processed 
Serial For Statement Number 



Operand Name 
LN 

OPBT 

PARCH 
PRPOlNT 

SUTABC 



Content 

Displacement of a reserved 
full word in the Label 
Address Table 

For statement classification 
byte (copied from the For 
Statement Table) 
Two -byte characteristic of a 
parameter 

Saved value of the compile- 
time object module dis- 
placement pointer PRPOINT 
(register 6 ) 

Last five bytes of an entry 
in Subscript Table-C (Figure 
73) 



The symbol (CWS) in the columns headed "Stack Operator" 
test (matrix) switch operators PRC, STC or EXC. 



designates one of the three con- 



i 



296 



I i 

|CP| Source 
| | Operator 



Stack Operator 




I 

I- r 

| at entry | 

-+ f 

I Alpha Beta | 
|Pi Phi Begin I 
1 Semicolon | 
I Then- s J 

l Else-s Do j 



(Source op. 
stacked) 



| 1 [ Label Colon 
I I 
I I 



j Alpha Begin | (No change) 

I Semicolon | 

i Then-s | 

I Else-s Do j 




Stack Operand 



at entry 



j label identifier! 



entry | exit 
— + 

PRC | PRC 



Source pointer 
stepped 



■+— 



SNOT 
CPU 8 



16 H 
173 



Subroutines used 



GENTXT 

CLEARRG, MOVEOPTK, PBNHDL, SERR 



CLEARRG, MOVEOPTK 



CPEND 
CP84 



1 I IN J 
,. j i 

| procedure identifier) 



until Delta is 
found 



GENTXT 

J BUFFER 

LATRES, PBNHDL 

DECOMP, MOVEOPDK, MOVEOPTK, SEPR 



I LN | 



| (reserved) 



[ Array 





I 

I For stacked 
I 

I 



j. j 

I Goto stacked [ 






1. 



|FSN[OPTE| 1 
j. J X-- f 

I (reserved) I 
I- -I 

f (reserved) | 



MOVEOPDK, MOVEOPTK, SERR 



CD 

a 



o 
o 
s 
13 

K 



I 7 IIO£ Goto If 

I I 

I I ( A ssign ( 



| Beta Pi Phi | Semicolon | 
j | stacked 

I I I 



I. 8|If 
f I 



1 Begin Else-s | If-s stacked 
I Do Semicolon I 



CLEARRG, MOVEOPTK, SERR 






112 [Assign 
I I 
1 I 

I— + — ■ 

|16|End 
I I 
I I 
I 1 
I I 
I I 



I Begin Then-s | Assign 

| Else-vs Do j stacked 

j Semicolon ^ j 



jleft variable | 



(Nc change) 
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GENTXT 

OPDREC, MOVEOPTK, STACKAPI, ROUTINE! 



I Beta Pi Phi 

1 Begin 

I 



— f 



J procedure ident if ier | 

I I LN | 

|. X ., 

| procedure identifier! 



(No change) 



GENTXT 

PBNHDL, PLPRST, DECOMP 



I I Eps ilon 
I I 



I I 

L J._ 



I Beta | 
j. ___ H 

I Pi Phi Begin 1 



H 

$ 

CO 

c 
0) 



to 

~4 



00 



| Source 
CPJ Operator 
I 



17| Else 

I 



18 i Lpsilon Eta 
I End 
I Send colon 



19|If 



I 
20 l Epsilon Eta 
| ind Use 
jconuria 
I 
I 
I 



I 
I 
I 
I 
i 
j. 

j (entry from 



I 

j. 

| (entry from 



21 j Assign 
I 



22 | (Any Arithm/ 
| Bool/ Rel 
I Op.) 

23 I Semi colon 
l Epsilon Eta 
I End 
\EM 

"+ - 

2H I Delta 



I 
25 I Semicolon 
I 



I 
26 I Array Switch 
I Phi Pi 

I 
I 

I 
I 



at entry 



Operator 

_ T 

J at exit 



Assign 



Assign 



I Assign 1 

f— — ^ 



j Assign l 



I For | 

H -I 

I Assign I 



| i 

1 Assign | 



Assign 
Assign 



Semicolon 



Beta Pi Phi 



Beta Pi Phi 
Begin 



Semicolon 






Assign 



Then-s 
Else-s 



(No change) 



CPU3) € 



CP5*) 
stacked 



Assign 
stacked 



(No change) 



(No change) 



Stack Operand 
at entry | 



| procedure identifier) j 
j j M ll[ 



I LN | 



i I 



j procedure identifier! j 
I ~T LN || 



j right variable 
j. 

| left variable 



j right variable 

j left variaole 
f 

I 
I 

| left variable 



II 
-II 

II 

1 | 

.j 

il 

II 
-I I 

II 
-II 

II 

II 
-II 

II 
j j 



right variable | j 

^ j , 

left variable | | | left variable 



_J L_ 






^ 

I 
I 
I 
I 
I 

":::::"::: — : f ~ 

| left variable | | 

+ _ 

(array, procedure, | 
arithmetic or boolean | 
operand or none) | 
+- 



(Nc change) 



(Nc change) 



j procedure identifier! j 
I 



I 
+ _ 

r , | 

J procedure identifier! | 
j | 



+— 



(operand) 



il 



1 



(operand) 



left variable 



II 

-HI 

II 






j (operand) 
[ T 



I 

H 

•-.I 
II 

— ^ i 

IN || 
J | 



entry! exit 



■fSource pointer 
stepped 



PRC | PRC 



— h 



I 

" PRC 



CP12 
SNOT 
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193 
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Subroutines used 



GENTXT 
PLPRST, LATRES 



CP69 

OPDREC, TRINRE, TRREIN, OPDTESF, 

ARRTEST, SERR, RC0TINE1, ROUTINE3, 

ROUTINE7 



PLPRST, SCBDL 



SERR, SCHD1 



PLPRST, MOVEOPTK, SCHDL 



ii^-S* 



^pr 



| Source 
I Operator 



H-+- 



s 


Pi 

X 



o 
o 
g 

H 
(0 

n 

H 

cn 

c 

h 



I (See 

matrices 
- App.V) 



Stack Operator 

r 

at entry | at exit 



| Array | 

k H 

1 * I 

I H 

I Colon | 



| (CSW) | 

j. -l 

I ( I 



Assign 



1 For 



Stack Operand 

T 

at entry | 



(operand) 



(operand) 



I 

| (Address of lower 
| bound in current 
| DSA) 



— H 

— .1 
II 

-HI 
II 



V- 

| identifier 

k " 

| COUNT 

I 

J identifier 



-HI 
II 

-HI 
II 

-HI 
II 






j (operand) 

| (reserved) 

V 

| (reserved) 

j. 
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^ 

| array/switch ident. 



1 I 



II 
HI 

II 
HI 

II 
HI 

II 
HI 

II 



| (operand) 
I 

| array identifier 
k 

1 
I 
I 



j array identifier 



(operand) 



I 

I— 

| left variable 



II 

HI 

II 

HI 

II 

II 

II 

H I 

II 



-I 

—- .1 

II 
-HI 

II 



(operand) 



III 

_J|L_ 

h— 

I 
I 

I 



(operand) 



(step value) 



ro 
so 



I t 

entry | exit 



•j-Source pointer 
stepped 



+ 

STC 



PRC 
STC 
EXC 



I- 
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195 



Subroutines used 



SERR, STACKAPI 



o 
o 



r — r 

| | Source 
| CP | Operator 
I I 



Stack Operator 



r i 

|27| 

I I 

I I 

I I 

I I 

I I 

\ I. 

I I 

i I 

I I 

I I 

i I 

I 1 

i I 

I 1 

I I 

I I 

I I 

I I 

I '■ 

I I 

I I 

I I 

i I 

I I 
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I k 

I I 

I ! 

i I 

I i 
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I I 
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I t 
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I I 

I \ 

I I 
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I t 

I t 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I I 

I i 

I i 
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I I 

i I 

I I 

I I 

I I 

\ I 

I I 

I I 

I i 

I I 

I I 

i I 

i I 
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-+-- 



at entry j at exit 
+ 




| (CSW) I 

t — --H 
I i I 



I I ICSW) J 

i t—r- ^ 

I I < I 



1 

1 
1 


L. J 


1 

1 
1 


I Array. | 

\ ^ 



I I 
I 

I 
i 

I 
I 



* J 




I Switch; 



Stack Operand 
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il 

| i 



I 



(operand) 



| , , | 

J J (operand) | | 

, f T ., | 

II I LN | | 

| . x J | 

! ^ 



Ir 
II 
I I'- 
ll 



(operand) 



-il 
II 

HI 
II 



I • I 
| f 1 n | 

II I IN || 
J J procedure identifier! | 



| | (operand) j | 
, J ^ | 

j [count dsn displ j I 

||st proc identifier || 



\ l _ 

| r — 

II 

1 1 

II 

1 1 

| | array 

| j. 

| | COUNT 

I I 

| | array 
| l 

I 

I 

-+ 

| r 

II 

| L 

I 
I 



' I 

(operand) | j 

DISPL | | 
i I 

identifier | | 
H I 

II 
, | 

identifier | | 



(operand) 



-i I 
II 



II 

II- 

| | COUNT 

I ' 



(operand) 



| | switch 

1 1 

II 

I f 

II (J 



identifier | | 

^ | 

LN || 
.| | 



^k 



entry | exit 
x 



PRC 
STC 
EXC 



Source pointer 
stepped 



Subroutines Used 



CD 
& 



o 
o 

H* 
H 
CD 
H 

•n 

H 

H 

0J 



Source 
Operator 






Array Switch 



Label Colon 



Stack Operator 



Stack Operand 



at entry | at exit 
+ 




I Array I 
\ -I 

I * I 



I 



(See 

matrices 
- App.V) 



(See 

matrices 
- App.V) 



(See matrices - App.V) 



(Arithm/ 
Bool/Rel Op) 



(See 

matrices 
- App.V) 



(See 

matrices 
- App.V) 



(No change) 



(No change) 



(No change) 



(No change) 



at entry 



( operand) 



| lower bound in stack 



| array identifier 
| COUNT 



| array identifier 



(operand) | 

LN | 

(reserved) | 



k 

1 

I 



(operand) 



| label identifier 



(operand) 



| (arithm/bool j 
| operand) | 



| lower bound 
j. 

I 



H 

DISPL! 



| array identifier j 

j. r 1 

| COUNT | j 

j. ^i J 

| array identifier | 






(No change 



(No change) 



| (Address cf lower 

| bound in DSA) 

>_- _ 

|array identifier 
H 



| COUNT | 

| array idenvifier 



t * 

entryj exit 
— + 



PRC I PRC 






Source pointer 
stepped 



SNOT 
CP8«» 
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Subroutines used 



SCHDL, ERR166 



CLEARRG, SERR, MCVEOPTK 



+— 



GENTXT 

vjPDREC, MAXCH, OPDTESF, TARITHM, 

TRREIN, MOVEOPTK, ROUTINE8-9, 

ROUTIN15 



O 



o 



H~f 



Source 
Operator 



Assign 



Step 



^ 

L i 



Stack Operator 



at entry j at exit 



(See 

matrices 
- App.V) 



+ 



j subscript expression! 
| 4 



(No change) 



| (CSW) | 
h ! 

I I ! 



(Mo change) 



Step stacked] 



While 
stacked 
t 

IPO 



Stack Operator 



at entry 



I 



(reserved) j 

j. . ^ 

| (reserved) J 

J (reserved) | 

j switch identifier j 



(subscript expression} 

I _ 1 

|SUTABC - last part j 

j. ^ 

| subscript expression! 

k T r , 

|DISPL | COUNTS | FLAG j 

J X L < 

1 array identifier | 



| cent 

k 

|FSN 
J. 

I 

I 

I 



rolled variable | 

OPTB | 

(reserved) j 

(reserved) j 



| switch identifier | 



J array identifier 



j initial value \ 

J controlled variable J 



JFSN OPTB LN LN | 

J DISPL DISPL J 

JDISPL DISPL | 

(optimization COUNT | 



jdesignaticnal expr 



j subscript variable | 



|(SUTABC - last part) 



(subscript variable 

JDISPL | COUNTS | FLAG 

j. L x 4 

| array identifier 



| controlled variable 
V- 



|FSN OPTB LN 



IN 



DISPL 



| DISPL DISPL 

J OPTIMIZATION COUNT 
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| (SUTABC - last part) 



| subscript variable 



| DISPL COUNTS FLAG 

|. - H 
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J controlled variable 



|FSN 



|FSN OPTB LN LN 
| DISPL DISPI 
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j optimized elements 



entry J exit 
+ 



STC | PRC 



PRC 
STC 



Source pointer 
stepped 



f ^ 

| PRC | 



SNOT 
CPU7 
CPU 9 
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184 



Subroutines used 



GENTXT 

OPDREC, MAXCH, CLEARRG, TRREIN, 

TARITHM, OPDTESF, SERR, ROUTINEl -3 -8 -9 -15 



GENTXT 

OPDREC, MAXCH, CIEARRG, SERF, 
NXTOPT, LATRES, OPDTESF, TARITHM, 
MOVEOPTK, ROUTINEl 



GENTXT 

OPDREC, OPDTESF, MOVEOPTK, SERR, 

ROUTINEl, ROUTINE7 



CP20 

GENTXT 

MAXCH, OPDTESF, LATRES, TARITHM 



CD 

Pi 



O 


3 

H 
(D 
H 

H 
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Operator 




Stack Operator 
at entry I at exit 



Stack Operand 
at entry | 



J Context 
| entry | exit 



I lor | 
I- H 

I For:= l 

h ^ 

I Step | 






step value 



II 

IH- 

| 1 controlled variable 

||FSN|0PTB| LN LN 
, j. x x r 

II |DISPL | DISPL 
| l J T L ;_. 

| | DISPL | DISPL 



I I optimization I COONT 



l L 



r 

1 for 


1 


1 For: 


= 1 





test value 



II— 



I Zor | 



l~ 

I For;= | 



step value 
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^ T T r 

|FSN|0PTB| LN j LN 

J X X L 

I DISPL 

V T 

1 DISPL j DISPL 

k — x r 1 

|cftiirization| COUNT 



| while value 

| controlled variable 
|FSN|OPTB| LN | LN 



I 

H 

I 
I 

j | DISPL | DISPL 

IH- 



DISPL 



| | optimization j COUNT 



upper bound 



j lcwer bound in stack 



I 

I. 

||array identifier 

1 1- t— 

I 



j COUNT j 

j array ident if ie r ( s ) 



1 Arrayj 



(No change) j | array identifier | 
1 1 .j 

|| array identifier (s) | 



(No change) 



|contrclled variable 
|FSN 



DISPL 



j. 

JDISPL DISPL 

| | COUNT 
|. J 

| optimized element (s) 



| controlled variable 
|FSN 



DISPL 



| COUNT 



loptimized element (s) 



| DISPL | 

| array identifier 

V r 

| COUNT | 

jarray identif ier(s) 



(No change) 



| DISPL 



| array identifier 



| Count | 



| array identif ier(s) 



Source pointer 
stepped 



SNOT 
COMP 



Subroutines used 



GENTXT, GENTXP, 

OPDREC, LATRES, OPDTESTF, TARITHM, 
R0UTINE1, R0UTINE3, R0UTINE8 , 
R0UTIN12, ROUTIN15 



CP45 

GENTXT, GENTXP, 

NXTOPT, MAXCH, OPDREC, TRINRE, 

LATRES, OPDTESF, TARITHM, MOVEOPDK, 

ROUTINE1, 3, 7, 8, 9, 12, 15 



GENTXT 

NXTOPT, MAXCH, OPDREC, LATRES, 
SERR, MOVEOPDK, ARRTEST1 , OPDTESF, 
R0UTINE1, 7, 8, 9, 15 



+— 



Branch to CP69 , return via CP66 
CP69, CP70, CP43, CP20 



GENTXT 

J BUFFER, MAXCH, OPDREC, 



SEKR, OPDTESF, MOVEOPDK, MOVEOPIK, 
TARITHM 



MOVEOPTK 



O 



U) 

o 

4^ 



H~* 
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1—1 
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Source 
Operator 



Epsilon Eta 
End Else 
Semicolon 



Any operator 
except Not 
( t If Power 



Stack Operator 



at entry 
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Switch ;= 



| (CSW) J 

|. -_ H 

I I I 



| (CSW) 

1 < 


-1 

1 

H 

1 


1 


_j 



Monadic 
Minus 



(Any 
operator) 



(No change) 



(No change) 



(No change) 



| (CSW) | 
> * 

I I I 



Stack Operand 

t 

at entry 



parameter 



I 

j. r ) 

| COUNT | PRPOINT | 

| PARCH | PRPOINT | 



| | IN | 

J. J ., 

J procedure identifier! 



(switch element j 
|. T <. < 

| COUNT | PRPOINT j 

I I 

j. _ H 

| switch identifier | 

H 



x 1 
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parameter 



~T "I 

1 COUNT! (DSN) IDISPLI 

\ L 1- 4 
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Jdesignational opnd j 
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f + 

| PARCH) PRPOINT 



I LN | 
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j function value 



| COUNT 
j. 

I 



(No change) 



(No change) 



j function value 



(No change) 
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DISPIj 



|st prcc identifier J 
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PRC 
STC 



PRC 
EXC 



PRC 
STC 
EXC 



PRC 
STC 
EXC 



Source pointer 
stepped 



i__ 



A f- 
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X X_. 
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174 
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187 



Subroutines used 



SCHDL, SERR 



MOVEOPTK, SERR 



GENTXT, GENRID, 

OPDREC, CLEARRG, DECOMP , SERR, 

STACKAPI, ROUTINEl, ROUTINE3 



GENTXT, GENRID, 

OPDREC, OPDTESF, SCHDL, STACKAPI 

SERR 



GENTXT, GENTXTP, 

OPDREC, TR1NRE, LDWPLC, CLEARRG, 
DECOMP, OPDTESF, NCVEOPDK, STACKAPI, 
ARRTESTl, SERR, ROUTINE1, 7, 10, 11, 12, 
14, 15 



GENTXT, 

OPDREC, OPDTESF, SERR 



GENTXT, GENTXTP, 

OPDREC, OPDTEST, ARRTEST1 , SERR, 

ROUTINE2, 4, 5, 6, 7, 11 



GENTXT, 

MAXCH, LATRES, CIEARRG, STACKAPI 



MOVEOPTK, SERR 



*&m 



CD 



o 

■0 

■■d 

H« 
H 
CD 
h 

H 

H 

CO 



I 69 

h— • 



Source j Stack Operator 

Operator j- — -. -j 

| at entry j at exit 



| (Any op. 
j except 
| arithm./ 
j rel. op. ' 
I Not ) 



I If If-s 
_+--- 

I 

| (Any op. 
j except 
j arithiu. 
| op.) 
I 
H 
I 
I 
I 



(See matrices-App.V) 



I 

I ( 



(See matrices-App.V) 



(entry from | Assign 
CP20) 



Epsilon Eta 

End 

Semicolon 



(Any rel. 
op. ) 



I Else | 
V i 

I A ssign | 



(See 

matrices 
- App.V) 



(Any rel. 
op. ) 



Not stacked] 



If stacked 



(Source op. 
stacked) 



(Source 
stacked) 



(Source 
stacked) 



(No change) 



(No change) 



| If | stacked 



* stacked 



Stack Operand 



H— — -T- 



| arithm operand 



| arithm operand 



| bool/arithm operand | 



| bool/arithm operand | 



j arithm operand 



operand 



operand 



(Nc change) 



(No change) 



(No change) 



+ 



(Nc change) 
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(No change) 
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+ 

EXC j EXC 
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EXC 

— f- 

EXC 






Source pointer 
stepped 



COMP 
COMP 
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Subroutines used 



SERR, OPTK 



J BUFFER, 

SERR, MOVE OPTK 



MOVEOPTK 



GENTXT, GENTXTP, 

OPDREC, MAXCH, TRINRE, ARRTEST2 , SERR 



ROUTINE 1-9, 11-13, 15 



SERR, MOVEOPTK 



SERR, MOVEOPTK, STACKAPI 



O 
U1 



o 
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•-+■ 



Source | Stack Operator | 

Operator j- T +- 

| at jntry | at exit j 
x x x- 



Stack Operand 

^ 

at ent ry | 



(See mat r ices -App.V) 



(See matrices-App.V) 



(See matr- 
ices-App.V) 



[See 

matrices 
- App.V) 



Pi Phi Beta 



(See matrices-App.V) 
also entered from 
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(No change) ] j 
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(operand) 



Ir 

| | boolean operand 

1 1 

| | boolean operand 

| I 

| | boolean operand 
| . _ 
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| j boolean operand 



| |arithm/bool/design 

1 1 

| |arithm/bool/design N 
| t 
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| . 

X 
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(No change) 



| , 

jjprcc identifier 

,1 

| j controlled variable 

| j. T T 1 

| |FSN |OPTB j LN | LN | 

| j X x_ T __x , 

I I I DISPL | DISPL 
, i X_ T X 
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| | optimization COUNT 
1 1 
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| r 

II 

I J- 
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| L 
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I 
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I 



Ir 



I 
I 

I 
I 
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__x_ 
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-H 

I 

I 

I 

— +- 



| switch identifier j 

> 1 — ^ 

I I LN | 

I x ^ 

J (reserved) | 



(operand) 



| | arithm/bool /design | 



H 

I IN | 



j boolean operand 



(No change) 



| LN l 



| arithm/bool/design 



(No change) 



| COUNT PRPOINT 
^ 



(No change) 



| unchanged/reserved 



(No change) 



PRC 
STC 
EXC 



I 1 

PRC 



PRC 
STC 
EXC 






PRC 
STC 
EXC 



EXC 



Source pointer 
stepped 



8 bytes 



Exit I Errors 
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Subroutines used 



GENTXT 

OPDREC, MAXCH, OFDTEST, ARRTEST2, SERR 

ROUTINE1, 3 



GENTXT, 

OPDREC, MAXCH, OPDTEST, ARRTESTl, 

SERR, ROUTINE1, 3 



GENTXT, 

OPDREC, LATRES, OPDTEST, ARRTESTl, 

SERR, ROUTINE1, 3 



GENTXT, GENTXT P, 

OPDREC, TRINRE, OPDTEST, ARRTESTl, 

SERR, R0UTINE1, 3, 15 



CLEARRG, MOVEOPTK, SERR 



GENTXT, 
PLPRST 



GENTXT, 
DECOMP 



MOVEOPTK 



SERR, STACK API 



GENTXT, 

OPDREC, MAXCH, LATRES, OPDTEST, 

ARRTESTl, SERR, ROUTINE 1-8, 10-12 
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COBSPEC 
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COMERR 
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EROUT 
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FOREND 
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GIF 

IDCHECK 

IDCHECK1 
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22 


5 


200 


22 


5 


200 


22 


5 


200 


21 


3 


199 


21 


3 


199 


21 


4 


199 


22 


5 


200 


22 


5 


200 


23 


6 


200 


23 


6 


200 
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9 


202 


28 


9 


202 


28 


9 


202 


28 


9 and 10 


202 


27 


8 


201 


26 


8 


201 
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205 


65 


24 


209 


56 
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204 


63 


22 


208 


62 


20 


207 


55 


13 


204 


56 


15 


205 


62 


20 


207 


59 


17 


206 


59 


17 


206 


59 


17 


206 




34 


214 


65 


20 


207 


57 


15 


205 


66 


26 


210 


64 


32 


213 


64 


32 


213 


63 


21 


208 


48 


34 


214 


64 


32 


213 


66 


26 


210 




21 


208 


62 


18 


206 


56 


14 


204 


60 


18 


206 


63 


21 


208 


48 


34 


214 


67 


34 


214 


60 


19 


207 


57 


57 


- 


63 


63 


- 


64 


20 


207 


63 


22 


208 


165 


122 


261 


63 


20 


207 


65 


31 


213 


59 
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IER 

IERSPEC 

Initialization 

LABEL 

LEFTPARL 

LET DEL 

LIST 

NORMAL 

NPAFTAPO 

PBLCKEND 

POINT 

PONTLST 

PROCEDUR 

PROCID 

QUOTE 

READROUT 

RIGHTPAR 

RIGTPARL 

SCALE 

SEMCO 

SEMC60 

SEMCLST 

SLASHLST 

SPEC 

SPECENT 

STARTDEL 

STATE 

STRING 

SWITCH 

TED 

TERMNT 

TESTLOOP 

TRANSOP 

TYPE 

TYPEARRY 

TYPE SPEC 

TYPPROC 

VALUE 

ZETAAPO 

Identifier Table Manipulation - IEX2Q 

ALLOSTOR 

CLOSE 

ITABPRNT 

Initialization 

READBLK 

WRITITAB 



64 


28 


211 


64 


28 


211 


52 


13 


204 


57 


15 


205 


66 


26 


210 


57 


15 


205 


66 


26 


210 


62 


20 


207 


57 


15 


205 


64 


22 


208 


55 


14 


204 


66 


27 


211 


67 


29 


212 


67 


30 


212 
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(see STRING) 




48 


34 


214 


55 


13 


204 


66 


26 


210 


56 


15 


205 


57 


16 


205 


57 


16 


205 


66 


26 


210 


67 


27 


211 


65 


31 


213 


65 


31 


213 


62 


19 


207 


56 


14 


204 


62 


33 


214 


67 


25 


210 


63 


20 


207 


(see EODADIN) 
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54 


13 


204 


55 


13 


204 


64 


23 


209 


65 


24 


209 


62 


18 


206 




29 


212 




31 


213 


57 


15 


205 
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72 


37 


216 


73 


38 


217 


73 


39 


217 


71 


36 


216 


72 


36 


216 


73 


38 


217 



Dia gnostic Output - IEX21 

Error Message Editing Routine 

Scan III - ILX30 

ARRAY 

BETA 

CHECK 

CLOBRACK 

COMMA 

CPOLEX 

CRIFLOW 

CRIFODEL 

CRIMA 

CRITI 

DECPOIN 

DECPOIN1 

DELCRIV 



Description 

171 

Description 

99 
95 
100 
96 
96 
94 
90 
91 
90 
89 
92 

91 
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Flowchart 
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51 


224 


47 


222 


51 


224 


51 


224 


61 


229 


61 


229 


60 


228 


59 


228 


65 


231 


65 


231 


61 


229 
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DIGITO 

DIGIT19 

DIPOW 

DO 

EPSILON 

ERROR1 

ETA 

FOLI 

FOR 

GAMMA 

GENT EST 

GENT XT 

ICHA 

IDENT 

INCOROP 

INITIATE 

INTCON 

INT HAN 

I TAB MOVE 

ITABMOP 

LETRAF 

LETTER 

MOVE 

MOVERRO 

NOCRI 

OMEGA 

OPBRACK 

OPERAND 

OTHOP 

OUCHA 

PIPHI 

PROFU 

QUOTE 

REALCON 

REALHAN 

RiiO 

SCAFACT 

SEMIDELT 

STEP 

SUBMULT 

SUCRIDEL 

SUSCRITE 

SUTABENT 

SWILA 

SWITCH 

TXTTRAF 

WHILE 

WRITE 

ZETA 
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92 


64 


230 


91 


64 


230 


99 


47 


222 


96 


49 


223 


95 


47 


222 


88 






95 


49 


223 


88 


57 


221 


95 


47 


222 


98 


49 


223 


88 


46 


221 


165 


122 


261 


98 


49 


223 


88 


57 


227 


99 


70 


233 


86 


46 


221 


93 


67 


232 


94 


67 


232 


95 


48 


222 


95 


48 


222 


91 


62 


229 


88 


57 


227 


99 






99 






89 


58 


227 


98 


50 


223 


96 


51 


224 


97 


54 


225 


98 


50 


223 


99 


49 


223 


95 


47 


222 


89 


58 


227 


95 


49 


223 


94 


68 


232 


94 


69 


233 


99 


51 


224 


93 


66 


231 


96 


51 


224 


99 


47 


222 


97 


54 


225 


96 


55 


226 


96 


52 and 53 


224-225 


98 


53 


225 


89 


58 


227 


99 


51 


224 


95 






96 


47 


222 


100 


62 


229 


98 
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Error Message Editing Routine 



171 



71 



234 



Subscri pt Handling - IEX40 

Initialization 

OPTAB 

OTACHA 

READ 

SORT 

SORTLE 

SORTSU 

Scan SUTAB 

TERMIN 



Description 
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103 


73 


236 


10 6 


75 


237 


107 


76 


237 


107 


74 


236 


107 


74 


236 


106 


74 


236 


106 


74 


236 


105 


73 


236 


107 


76 


237 
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Compilation Phase - IEX50 

COMP 

CPO 

CP1 

CP3 

CP4 

CP6 

CP7 

CP8 

CP12 

CP16 

CP17 

CP18 

CP19 

CP20 

CP21 

CP22 

CP23 

CP24 

CP25 

CP26 

CP27 

CP28 

CP29 

CP30 

CP31 

CP33 

CP34 

CP36 

CP38 

CP40 

CP41 

CP43 

CP45 

CP47 

CP49 

CP51 

CP52 

CP54 

CP56 

CP57 

CP59 

CP61 

CP62 

CP63 

CP64 

CP65 

CP66 

CP67 

CP68 

CP69 

CP70 

CP71 

CP72 

CP73 

CP74 

CP75 

CP76 

CP77 

CP78 

CP79 

CP80 

CP81 

CP83 

CP84 

CP85 



Description 


Flowchart 
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119 


79 


239 


120 


80 


240 


122 


80 


240 


164 


80 


240 


121,127,133 


81 


240 


123,144 


82 


241 


161 


82 


241 


154 


82 


241 


151 


83 


241 


120,134 


83 


241 


154 


84 


242 


154 


84 


242 


161 


84 


242 


152 


85 


242 


151 


85 


242 


162 


86 


243 


161 


86 


243 


161 


86 


243 


161 


86 


243 


16 2 


87 


243 


162 


87 


243 


16 3 


87 


243 


163 


87 


243 


163 


87 


243 


163 


87 


243 


162 


87 


243 


156 


88 


244 


128 


88 


244 


122,130 


89 


244 


144 


90 


245 


122,130 


91 


245 


147 


92 


246 


147 


93 


246 


147 


94,95,96 


247-248 


148 


97 and 98 


248-249 


128 


99 


249 


127 


100 


250 


130 


100 


250 


122,123 


101 


250 


134 


101 


250 


122 


102 


251 


137 


103-4 


251-252 


123 


105 


252 


159 


105 


252 


134,136,156,158 


106 


253 


156,158 


106 


253 


158 


106 


253 


158,159 


106 


253 


159,161 


106 


253 


159 


107-112 


253-256 


162 


113 


256 


162 


113 


256 


163 


113 


256 


163 


113 


256 


16 3 


113 


256 


163 


113 


256 


158 


114 


257 


158 


115 


257 


154,156 


115 


257 


157 


116 


258 


157 


117 


258 


151 


117 


258 


136 


118 


259 


163 


118 


259 


122 


118 


259 
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CP86 

CP87 

DHEB2 

DHZB1 

DWG 3 

SERR 

GENERATE 

H0B1 

Initialization 

IPB1 

ISB1 

IUB1 

I1B1 

JBUFFER 

NXTOPT 

OPDREC 

SNOT 

SNOTSP 

USA1 

UVA1 

Termination Phase - IEX51 

Error Message Editing Routine 
Main Storage Release 
Object Time Table Output 
Print Storage Requirements 

ALGOL Library 

ALGIN 

ALGTRMN 

CAP1 

CAP2 

CLOSE 

CLOSEGP 

CLOSEPE 

CSWE1 

CSWE2 

DCBEXIT 

EPILOG 

FSAERR 

GET 

GETMSTO 

INARRAY 

INBARRAY 

INBOOLEAN 

IN INTEGER 

INPUT 

INREAL 

INSYMBOL 

INTARRAY 

LOADPP 

NEXTREC 

OPEN 

OPENGP 

OUTARRAY 

OUTBARRAY 

OUT BOOLEAN 

OUTINTEGER 

OUTPUT 

OUTREAL 

OUTSTRING 

OUTSYMBOL 

OUTTARRAY 

PUT 

PIEROUT 

PROLOG 



164 


118 


259 


156 


119 


259 


160 


108 


254 


160 


110 


255 


148 


98 


249 


164 


123 


261 


165 


122 


261 


161 


109 


254 


118 


78 


239 


160 


111 


255 


160 


112 


256 


160 


111 


255 


160 


109 


254 


164 


121 


260 


164 


121 


260 


165 


120 


260 


119 


79 


239 


119 


79 


239 


148 


98 


249 


151 


98 


249 
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171 


128 


264 


169 


126 


263 


167-169 


125 


263 


169 


127 


264 
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177 


130 


265 


179 


132 


266 


177 


132 


266 


178 


132 


266 


184 


142 


271 


181 


142 


271 


185 


142 


271 


178 


- 


- 


179 


- 


- 


18 5 


141 


271 


177 


131 


266 


179 


- 


- 


181 


140 


270 


179 


- 


- 


181 


134 


267 


181 


134 


267 


18 2 


134 


267 


182 


134 


267 


181 


140 


270 


182 


134 


267 


18 2 


135 


268 


181 


134 


267 


179 


130 


265 


185 


142 


271 


185 


141 


271 


181 


141 


271 


182 


135 


268 


18 2 


136 


268 


182 


135 


268 


18 2 


135 


268 


181 


140 


270 


182 


135 


268 


18 2 


136 


268 


183 


136 


268 


18 3 


135 


268 


180 


140 


270 


179 


- 


- 


177 


131 


266 
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RETPROG 178 132 266 

SPDECL 179 131 266 

SYSACT 183 137,138,139 269-270 

TRACE 179 130 265 

VALUCALL 178 130 265 



4 
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Indexes to program logic manuals are consolidated in the publication 
OS Master Index to Logic Manuals , Order No. GY28-6717. For 
additional information about any subject listed below, refer to other 
publications listed for the same subject in the fyjaster Index. 

Actual parameter 131-132,165 
Address Table 169,187 
ALGOL Compiler 

Summary 13-16 

Flowchart (overall flow) 197 
ALGOL Library 176-186 
All-purpose internal name 274 
Area Size Table 24 
Arithmetic expression 158-161 
Arithmetic operators 44,158-161 
Array 124-131 

Array (actual parameter) 135 
Array (formal parameter 

- call by name) 132 
Array (formal parameter 

- call by value) 131,178 
Array declaration 

in Identifier Table 36-37,65-66 
in intermediate source text 44 
allocation for Storage Mapping Function 

73 
internal name 274 
object code 125-126,127-130 
Assignment statement 151-152 

Blank 55-56 

Block 33-34,41-42,75,120 

Boolean constant 

in Scan I/II Phase 45,62-63 

in Scan III Phase 95 

internal name 274 

Character codes 272-273 
Character string 

in Scan I/II Phase 30,45,62 

in Scan III Phase 95 

internal name 274 
Characteristic 36 
Code procedure 65,98,135-136 
Code tables 272-273 
Column Vector 116 
Comment 62,64 
Common Area 19,28 
Common Data Area 176 
Common Work Area 23-25 
Compilation Phase (IEX50) 

Description 108-167 

Flowcharts 238-261 
Compiler area requirements 285 
Compiler Control Field (HCOMPMOD) 24,27, 

276 
Compiler entry 21 
Compiler exit 21 
Compiler interface 21 
Compiler invocation 26 
Compiler modules 

see Compiler phases 
Compiler options 27 
Compiler organization 13 
Compiler output 14 
Compiler phases 13 

Directory (IEX00) 21-25 



Initialization (IEX10) 26-29 

Scan I/II (IEX11) 30-68 

Identifier Table Manipulation (IEX20) 
69-73 

Diagnostic Output (IEX21) 171-175 

Scan III (IEX30) 74-100 

Diagnostic Output (IEX31) 171-175 

Subscript Handling (IEX40) 101-107 

Compilation (IEX50) 108-167 

Termination (IEX51) 167-169 
Component (switch) 67,120-122 
Compound statement 3 3- 34, 41-- 42, 120 
Conditional expression 154-157 
Conditional statement 153-154 
Constant 

in Scan I/II Phase 45 

in Scan III Phase 77,91-94 

internal name 274 
Constant, Pool 30,52,62,74,94-95,187-188 
Context switching 161-162 
Counting Loop 80,138 
Conventions 20 
Critical identifier 82,89-90 
Critical Identifier Table 82-83 
Cyclical address increment 143-144 



Data Control Blocks 23,25,29 

Data Control Block addresses 24,29 

Data Set Table 168,190 

Data sets 14,17,28-29,35,70,77,102,110 

Data Storage Area 191-192 

DDnames 28 

Decision matrices 116,278-279 

Declarations 

entry in Identifier Table 31,34, 35-38, * 

64-67 
representation in intermediate source 

text 44-45 
allocation of object time storage fields 

72-73 
internal names of declared identifiers 

274 
replacement of identifiers by internal 

names 75,88 
see also 

Array declaration 
Code procedure declaration 
Label 

Procedure declaration 
Switch declaration 
Declarator 44,64-67 
Delimiter 

initial treatment 43-^5 
internal representation 61,272 
Delimiter Table 60,61 

Diagnostic output (IEX21, IEX31, IEX51) 
Description 170-175 
Flowcharts: 
IEX21 218 
IEX31 234 
IEX51 264 
Directory (IEX00) 

Description 21-25 
Flowcharts 198-200 
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Elementary Loop 80 , 139 

End of Data 22 , 24, 48,52,71,119 

END record 169,187 

ERET 22,24,52,71,86,103,118 

Error detection 170-171,280-284 

Error Pool 19,28,172 

ESD record 68,136,168,187 

Expression Context Matrix 116,279 

Fixed Storage Area 176 
Flowcharts 196-271 
For statement 

identification in intermediate source 
text 41-42 

classification 79-81 

object code 138-151 
For statement closing entry 39 
For statement heading entry 39 
For Statement Table 81,139 
Formal parameter 

see Specifications 

internal name 274 

storage field 193 

object time treatment 131-135 
Function designator 

see Type procedure 

Goto statement 123 
Group Table 45 

HCOMPMOD Control Field 

see Compiler Control Field 

Identifier 

entry in Identifier Table 
object time storage field 
internal name 274 
replacement by internal name 
see also 

Declarations 
Specifications 
Operands 
Identifier entry 36 
Identifier Group Number 41-42 
Identifier Table 30,35-41,69-70,78-79 
Identifier Table Manipulation Phase (IEX20) 
Description 6 9-73 
Flowcharts 215-217 
Initialization Phase (IEX10) 
Description 26-29 
Flowcharts 201-202 
Input/Output activity 16,35,70,77,102,110 
Input/Output procedure 

see Standard input /output procedures 
Intermediate storage procedure 

see Standard input/output procedures 
Internal name 

table of internal names 274 
processing 

identifiers (see Declarations and 

Specifications) 
character strings 62 
boolean constants 62-63 
constants 11,91-94 
treatment in generation of object code 
110-112 
Invalid branch 89 
Invalid character 57 
Invalid identifier 64 
I/O error 

see Unrecoverable I/O error 



35-38 
73 



75 



I/O Table 138 

Label 44-45,57,122 
Label Address Table 

compile time 118-119,167-168 

object time 189 
Left Variable Table 82 

Library 

see ALGOL Library 
Load module 188-195 
Logical error 162-164 
Logical operator 157-158 
Loop count 138 

Machine system 13 

Main storage (compile time use) 18,286-294 
Main storage (object time use) 188,295 
Mathematical function 

see Standard mathematical functions 
Message Pool 172 
Modification Level 1 text 43-45 
Modification Level 2 text 84-85 

Normal Loop 80,140 
Note Table 191 
Numbers 

see Constants 

Object module 187 
Object stack 

(= extension of current Data Storage Area) 
Area) 
Operand 

internal names 274 

treatment in Generation of object code 
110-112 
Operand Stack 110-113 
Operator Stack 110-113 
Operators (ALGOL-defined) 

see Delimiters 
Operators (internal) 

in Scope Handling Stack (Scan I/II Phase) 
20 

in Modification Level 1 text 43-45,272 

in Modification Level 2 text 84,272 

in Operator Stack (Compilation Phase) 
273 
Optimizable subscript expression 81,101 

see also Subscript optimization 
Optimization Table 103 
Option 

see Compiler options 

Parameter delimiter 45,57 
Precompiled procedure 46,68,187-188 

see also Code procedure 
Preliminary Error Pool 24 
Procedure 33-34 , 41-42,75, 131-136 
Procedure call 132-133 
Procedure declaration, 

in Identifier Table 37-38,67 

in intermediate source text 41-42,44 

internal name 274 

object code 131-132,133-134 
Program 46 

Program block heading entry 38 
Program Block Number 41-42 
Program Block Number Table 46 
Program Block Table (object time) 188-189 
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Program Block Table II 70-71 

Program Block Table III 119,120 

Program Block Table IV 167 

Program Context Matrix 116,278 

Program interrupt 21,52,71,86, 103,118,179 

Register save area 23 
Registers (compile time) 

register use in Compilation Phase 116 
Registers (object time) 

register use 194-195 

register control 113-115 
Relation 158-161 
Relational operators 44,160 
RLD record 136,168,187 
Return Address Stack 193-194 
Routine Index 307 
Row Vector 116 

Scan I/II Phase (IEX11) 

Description 30-67 

Flowcharts 203-214 
Scan III Phase (IEX30) 

Description 75-100 

Flowcharts 220-233 
Scope Handling Stack 42-43 
Scope Table 45 
Semicolon Table 38-39,63,67 
Serious error 170-171 
Source module 13,30,46 
Source text 17-19,43-46,84-85 
Special Use Bits 36,80,84,88-89 
Specification 

entry in Identifier Table 34,35-38,65 

representation in intermediate source 
text 44 

allocation of object time storage field 
72-73 

internal names of specified identifiers 
274 

replacement of identifier by internal 
name 75,79,88 

see also Formal parameter 
Specif icator 44,65 
SPIE macro 26,21,22,86 
Stack operator 

see Scope Handling Stack 
Operator Stack 
Standard input/output procedures 180-185 

entries in Identifier Table 86 

internal names 275 

replacement of identifiers by internal 
names 75,88 

call (object code) 136-137 

ESD records 168 

INARRAY 181 

INBARRAY 181 

INBOOLEAN 182 

ININTEGER 182 

INREAL 182 

INSYMBOL 182 

INTARRAY 181 

OUTARRAY 182 

OUTBARRAY 182 

OUTBOOLEAN 182 

OUTINTEGER 182 



OUTREAL 182 

OUTSTRING 182 

OUTSYMBOL 183 

OUTTARRAY 183 

GET 181 

PUT 180 

SYSACT 183 
Standard mathematical functions 187 

entries in Identifier Table 86 

internal names 275 

replacement of identifiers by internal 
names 75,88 

call (object code) 136-137 

ESD records 168 

ABS 137 

ARCTAN 186 

COS 186 

ENTIER 179 

EXP 186 

LENGTH 137 

LN 186 

SIGN 137 

SIN 186 

SQRT 186 
Statement Context Matrix 116,279 
Storage Mapping Function 125-126,128-129 

193 
String 

see Character String 
Subscript expression 77,81,96-98,101-107 
Subscript incrementation 144,151 
Subscript initialization 144,148-151 
Subscript optimization 143-144,148-151 
Subscript Handling Phase 

Description 101-107 

Flowcharts 235-237 
Subscript Table 82-83 
Subscripted Variable 126-127,130-131 
Switch (ALGOL-defined) 120-122 
Switch declaration 

in Identifier Table 37-38,67 

in intermediate source text 44 

internal name 274 

object code 120-122 
Switch designator 121-122 
Syntax Check Mode 170-171 

Terminating error 171 
Termination Phase (IEX51) 

Description 167-169 

Flowcharts 262-264 
Thunk 

(= actual parameter code sequence) 
Type declaration 36-37,44,64 
Type procedure 37,131-132 

Undeclared identifier 75,88 
Unrecoverable I/O error 22,52,71,86,103, 
118,185 

Value call 131-134,178 

Warning error 170 

Zero-base address 124-125 
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Page Amendment 

77 The constants 0.0095 f 86 and 0.95 x 10 84 
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0.95 x 10 5 2 § respectively 
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Pacre Amendment 

82 In the left column on lines 12 and 13, 
insert the following: "and the for 
statement is an Elementary Loop", 

83 In Figure 44 , replace the explanation 
opposite <X> Bits 2 and 3, as follows: 
"(Binary 00, Chain Bits used in Sub- 
script Handling Phase)". 

112 In figure 54, change the last two object 
code instructions as follows: 

A REGX, <DISP-B> (CDSA) 
ST REGX, <DISP-C> (CDSA) 

165 In the right column on line 3, add the 

following: "Load CDSA with Data Storage 
Area base address". 

In the same column, lines 9-11, delete 
the text: "Load CDSA with Data Storage 
Area base address". 



Summary of Amendments 

This Newsletter corrects various minor errors in the 
publication, which relates to release 11 of the IBM 
System/360 Operating System. 

Note: Please file this cover letter at the back of the 
publication. 
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Summary of Changes 

This Newsletter reflects changes made in the logic of certain 
A.LGOL Library routines, which take effect with Release 16 of the 
Operating System. 

Note : Please file this cover letter at the back of the publication. 
Cover letters provide a useful record of changes made in a publica- 
tion. 
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This Technical Newsletter, a part of release 21 of the IBM 
System/360 Operating System, provides replacement pages for the 
subject manual. These replacement pages remain in effect for 
subsequent versions and modifications unless specifically altered, 
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Summary of Amendments 

References to OS publications have been updated to reflect 
current titles. 
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Please file this cover letter at the back of the manual to 



provide a record of changes. 
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